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RENSEIGNEMENTS 
SUR LE MICROPROCESSEUR 780 


Un ordinateur est composé de différents éléments dont le point 
central est le microprocesseur. Dans le cas de l’Amstrad, il s’agit du 
Z80. 

Le microprocesseur est capable d'effectuer certaines opérations 
logiques ou arithmétiques ainsi que d'échanger des informations avec 
les autres éléments. Nous parlons actuellement des possibilités don- 
nées aux circuits électroniques qui le composent et non des possibi- 
lités que l’on peut lui donner par des logiciels. 

Nous n’entrerons pas dans le détail du fonctionnement du Z80, 
nous indiquerons seulement le rôle de quelques-uns de ses 
composants. 


Dans un ordinateur, il existe les types de mémoires suivants : 


e Les ROM (Read Only Memory). Ces mémoires sont accessibles uni- 
quement en lecture ; il n’est pas possible d'y écrire, sauf au moment 
de leur réalisation. Ce sont les mémoires ‘’mortes’’ de l'ordinateur. 


e Les RAM, Random Access Memory. Ces mémoires sont accessi- 
bles en lecture et en écriture. Ce sont les mémoires ‘‘vives’’ de 
l'ordinateur. 


e Les mémoires de travail du microprocesseur sont appelées registres, 
leur particularité par rapport aux ROM et aux RAM est d'avoir un 
temps d'accès plus court ; certaines sont dotées d'un nom parti- 
culier lorsqu'elles ont une utilité spécifique. 


e L'ALU (Arithmetical Logical Unit), cœur du microprocesseur, doté 
de la possibilité d'effectuer des opérations arithmétiques et logiques, 
comme son nom l'indique. 


FONCTIONNEMENT DU 780 
Examinons maintenant les registres du Z80 : 


e L’accumulateur, noté A : ce registre est associé à l’ALU pour lui 
permettre de travailler. 


Les registres universels, qui peuvent avoir plusieurs utilisations ; 
ils ne sont pas affectés à priori à une tâche particulière. 


Les registres d'adresses, notés BC / DE / HL, qui sont des registres 
doubles : deux registres, indépendants physiquement, sont asso- 
ciés dans leur désignation pour la gestion des adresses ; le poids 
faible d’une adresse est contenu dans le premier registre, le poids 
fort dans le second. La notion de poids faible et de poids fort sera 
développée ultérieurement au paragraphe Écriture d’une adresse. 


Le compteur ordinal, noté PC, qui contient l’adresse de la prochaine 
instruction à exécuter. 


Le pointeur de pile, noté SP, qui permettra de gérer les piles. 
Le registre d’index, noté IX, qui permettra de faire de l’adressage 
indexé. 


De plus, pour accélérer certains travaux, le Z80 possède deux jeux 


indépendants de certains des registres énumérés ci-dessus. 


Revenons aux registres d'adresses. Nous avons dit que ces registres 


étaient doubles ; cette particularité permet de gérer les adresses plus 
rapidement. Pour expliquer leur fonctionnement, commençons tout 
d’abord par quelques rappels sur les systèmes de numération. 


NUMÉRATION DÉCIMALE, BINAIRE ET HEXADÉCIMALE 


Lorsque l’on écrit le nombre 627 en numération décimale, la tra- 


duction arithmétique est : 


6*10?+2x10!+7x10° 


10 est la base de la numération que l’on élève à la puissance O, 


puis 1, puis 2, etc. (rappelons que 10° est égal à 1). 


Le nombre 1011 en numération décimale se traduit par : 
1#10°+0+107+1+10'+1+2°=1011 
En numération binaire, il se traduit par : 


142*+0x22+1x2! 41x20 


soit la valeur 14 en numération décimale. 
En numération hexadécimale, il se traduit par 


1416 +0x162+1*16! +1x16° 


soit la valeur 1554 en numération décimale. 


Un octet est un mot de huit bits ; chaque bit peut prendre la valeur 
0 où 1 ; dans un octet, les nombres sont représentés en numération 
binaire. Le plus petit est 00000000 ; le plus grand est 11111111, ce 
qui nous donne en valeur décimale O pour le plus petit et 255 pour 
le plus grand. 


1427+14204+1425+142%+14294+1422+1421 4714202255 


La numération hexadécimale est souvent utilisée lorsque l'on tra- 
vaille directement sur le contenu d’un octet, car elle permet d'écrire 
tous les nombres possibles qu’il peut contenir avec seulement deux 
chiffres ou lettres. 

La succession des chiffres en numération décimale est : 


0,1,2,3,4,5,6,7,8,9 
La succession des chiffres en numération hexadécimale est : 
0,1,2,3,4,5,6,7,8,9,A,B,C,D.E,F 
A a la valeur 10, B la valeur 11, C la valeur 12, D la valeur 13, E 
la valeur 14, F la valeur 15 en numération décimale. 
Le nombre 255 en numération décimale s'écrit FF en numération 
hexadécimale ; c’est le plus grand nombre que l’on puisse écrire dans 


un octet. 


Fx16!+F+160=15+16+15-255 


- 10 - 


ÉCRITURE D'UNE ADRESSE 


Le microprocesseur Z80 est capable de travailler avec des adresses 
allant de 0 à 65535. Nous venons de voir ci-dessus que, dans un octet, 
le nombre le plus grand que l’on pouvait représenter était 255 ; par 
conséquent, il sera nécessaire d’utiliser deux octets pour pouvoir 
représenter des nombres jusqu’à 65535. Ces deux octets sont utili- 
sés de la manière suivante : l'adresse sera égale à la valeur contenue 
dans le premier octet augmentée de la valeur contenue dans le second 
octet multipliée par 256. 


EXEMPLE 


L'adresse 28712 sera représentée par les deux octets suivants : 
00101000 01110000 


L'octet 00101000 vaut 40 en décimal, l’octet 01110000 vaut 112 
en décimal ; on a bien en décimal 40+256*x112=28712 

Le premier octet est dit contenir le poids faible, le deuxième octet 
le poids fort. 

Il'est d'usage d'appeler l’ensemble des mémoires qui ont la même 
valeur dans l’octet de poids fort, une page ; les mémoires dont 
l'adresse va de 28160 à 28415 ont comme poids fort 112, ce sont 
les mémoires de la page 112. 


2.41: = 


LES MÉMOIRES DE L'AMSTRAD 


Dans sa version de base, l’Amstrad possède une mémoire RAM de 
65 536 octets (soit 64K ; 1K=1 024 octets), mais toute cette mémoire 
n’est pas disponible pour l'utilisateur. Un certain nombre de mémoires 
est réservé pour le fonctionnement du microprocesseur, de l’inter- 
préteur BASIC et les affichages à l’écran. Nous allons donner la carte 
des mémoires ainsi que quelques adresses remarquables utilisées par 
le microprocesseur ou l’interpréteur. 





CARTOGRAPHIE DES MÉMOIRES DE L'AMSTRAD 
Les adresses des RAM vont de 0 à 65535. 
e Les mémoires d'adresses 0 à 366 (page 0 et début page 1) sont réser- 


vées pour le fonctionnement de l'AMSDOS et du CP/M. 


e Les mémoires d'adresses 367 à 42619 sont libres pour le programme 
BASIC et ses variables associées. 


e Les mémoires d'adresses 42620 à 49151 sont réservées au fonc- 
tionnement du microprocesseur et de l’interpréteur. 


e Les mémoires d'adresses 49152 à 65535 sont réservées pour l’affi- 
chage écran. 


La cartographie de la mémoire se schématise de la manière 
suivante : 











ADRESSE UTILISATION APPELLATION 
65535 
49152 
Réservé interpréteur 
et microprocesseur 
42620 HIMEM 
Mémoires disponibles 
pour le BASIC 
367 TXTTAB 
Réservé AMSDOS 
et CP/M 
0 
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L'adresse de début de la zone libre pour le programme BASIC 
s'appelle TXTTAB ; cette adresse est stockée dans les mémoires réser- 
vées à l’interpréteur, soit 44673 (poids faible) et 44674 (poids fort). 

L'adresse de la fin de zone libre pour le programme BASIC s'appelle 
le HIMEM ; cette adresse est stockée dans les mémoires réservées 
à l'interpréteur, soit 45199 (poids faible) et 45200 (poids fort). 


ADRESSES REMARQUABLES DE LA ZONE MÉMOIRE 
RÉSERVÉE A L'INTERPRETEUR 


Les adresses remarquables que nous allons citer sont toutes implan- 
tées dans la zone réservée à l’interpréteur, nous les donnerons dans 
l'ordre poids faible, poids fort. 


e Nous venons de voir que l'adresse de début de la zone disponible 
pour le programme BASIC s'appelle TXTTAB ; cette adresse est 
stockée dans les mémoires 44673 et 44674. L'adresse de la mémoire 
la plus haute (l'adresse la plus forte disponible) s'appelle le HIMEM ; 
elle est stockée dans les mémoires d'adresses 45199 et 45200. Elle 
peut être différente de la plus haute mémoire existante, caracté- 
ristique que nous utiliserons ultérieurement. 


e L'adresse de fin de programme BASIC s'appelle le LOMEM ; elle 
est stockée dans les mémoires d'adresses 45675 et 45676. 


e Les variables numériques non indicées et l'adresse de stockage des 
variables alphanumériques non indicées sont stockées dans une 
zone de mémoire dont l'adresse de début est le LOMEM et l'adresse 
de fin le ARYTAB. ARYTAB est stocké dans les mémoires d'adresses 
44679 et 44680. 


e Les variables numériques indicées et les adresses de stockage des 
variables alphanumériques indicées sont stockées dans une zone 
dont l’adresse de début est ARYTAB et l’adresse de fin STREND. 
STREND est stocké dans les mémoires d'adresses 44681 et 44682. 


e Les variables alphanumériques, indicées ou non, sont stockées dans 
une zone dont l'adresse de début est HIMEM et dont l'adresse de 
fin est FRETOP. FRETOP est stocké dans les mémoires d'adresses 
45197 et 45198. Il est à remarquer que pour cette zone l'adresse 
de début est supérieure à l'adresse de fin, à l'inverse des autres 
zones. Nous en donnerons l’explication au Chapitre 3. 
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e La zone allant de FRETOP à STREND est libre. 


Il faut bien retenir de ce schéma que : 


1. Le LOMEM s'élève au fur et à mesure que le programme s’allonge. 


2. La zone des variables qui s'étend de LOMEM à STREND est 
d'autant plus importante que le nombre ou la dimension des varia- 
bles sont importants. 


3. La zone supérieure qui va de HIMEM à FRETOP contient toutes 
les variables alphanumériques du programme (par variables, il faut 
entendre tous les messages introduits par l’utilisateur, par exem- 
ple des INPUT R$ ou des concaténations telles que A$=B$+C$. 


4. Dès que la zone libre deviendra nulle, le programme n'aura plus 
de place pour stocker les variables, ce qui déclenchera le mes- 
sage d’erreur ‘’'OUT OF MEMORY’ et le programme sera arrêté 
dans son exécution. Il est donc nécessaire de limiter l’encombre- 
ment d’un programme et le nombre de variables utilisées pour 
travailler correctement dans l’espace mémoire d’un micro- 
ordinateur. 
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Pour la zone utilisable par le BASIC, nous avons la carte suivante : 


Utilisation Nom Adresses 
HIMEM 45199 45200 


Zone de stockage des 
variables alphanumériques 


indicées ou non 
FRETOP 45197 45198 


STREND 44681 44682 


Zone de stockage des 
variables numériques indicées 
Adresses de stockage des variables 
alphanumériques indicées 
ARYTAB 44679 44680 


Zone de stockage 
des variables numériques 
Adresses de stockage des variables 


alphanumériques non indicées 


LOMEM 44675 44676 


Programme BASIC 
TXTTAB 44673 44674 


Nous utiliserons certaines de ces adresses dans les chapitres suivants. 





RE VAE 


CODAGE DES INFORMATIONS 
D'UN PROGRAMME BASIC 


La première étape nécessaire pour pouvoir explorer un programme 
est de connaître la manière dont il est stocké dans les mémoires, ce 
que nous allons examiner ; puis nous étudierons l'implantation et le 
codage des variables utilisées par le programme. 


CODAGE DES ORDRES 


Nous avons vu au Chapitre 2 que les mémoires d'adresses 44673 
et 44674 contenaient l'adresse du TXTTAB, c'est-à-dire l'adresse à 
partir de laquelle les instructions du BASIC vont être enregistrées. Nous 
allons commencer par interroger ces mémoires pour connaître le 
TXTTAB de l’Amstrad. En ordre à exécution immédiate, tapons : 


CLS < Return > 
PRINT PEEK(44673)+256*PEEK(44674) < Return > 


Nous obtenons le résultat suivant à l’écran : 
367 


Maintenant que nous savons où sont implantées les instructions 
BASIC, nous allons écrire un programme qui va s’auto-explorer ; nous 
allons séparer ce programme en deux parties : celle que nous explo- 
rerons au début et celle qui réalisera l’exploration. 

Ce programme étant du BASIC classique, nous ne signalons plus 
les RETURN en fin de ligne. 


NEW 


L'ordre NEW permet de libérer la mémoire de l'ordinateur pour 
taper un nouveau programme sans le mélanger avec un programme 
introduit précédemment. Nous verrons ultérieurement l'effet exact 
de l’ordre NEW sur les mémoires. 


19 REM CH3-P1 

28 PRINT "BONJOUR" 

30 AZ=2 : B%=145 : C2=758 :D/=-456 

40 E=2 : EÂ=4S : ASR=78.5 :ASDF=-456.2 

59 X=RIAEF : Y=8&X10188818 

68 A$="HELLO" 

78 A=PEEK(44675)+256*xPEEK(44676) 

80 FOR J=367 TO À STEP 38:CLS 

90 FOR I1=J TO J+28 STEP 2 

188 PRINT I;PEEK(1),1+1;PEEK(I+1):NEXT I 

118 PRINT:INPUT R$: IF LEFT$(R$,1)<)>"C" THEN 148 
126 FOR 1=J TO J+28 STEP 2:PRINT #8,1;PEEK(1),1+13;PEEKÇI+1):NEXT 1 
130 PRINT #8,:PRINT#S, 

148 NEXT J 

150 END 
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Le principe de ce programme est d'explorer les mémoires où sont 
implantées les instructions BASIC. On affiche les codes ASCII trou- 
vés à l'écran par série de 30, puis une nouvelle série de 30 et ainsi 
de suite. 


20/60 


Différents types de variables, pour examiner la manière dont elles 
sont représentées en mémoire. 


90/100 et 120 


L'affichage, par série de 30, est réalisé par les deux boucles 
FOR/NEXT en I. 


80/140 


La boucle FOR/NEXT en J permet l’exploration complète du pro- 
gramme, puisqu'elle commence à partir du TXTTAB, soit 367, jusqu'au 
LOMEM (fin du programme), soit PEEK(44675) + 256*PEEK(44676). 


100 


Cette instruction affiche le numéro de la mémoire explorée et le 
code ASCII trouvé (deux fois par ligne). 


110 


Cette instruction arrête l’exécution jusqu’à ce que l’on frappe la 
touche RETURN ; si l’on frappe C suivi de RETURN, on déclenche 
l'impression sur imprimante (instruction valable pour les lecteurs qui 
en possèdent une). L'ordre INPUT est précédé de PRINT, qui met 
le curseur à la ligne suivante. 


Le BASIC est implanté à partir du TXTTAB et nous allons trouver 
successivement : la longueur de l'instruction (nombre d’octets occu- 
pés par l'instruction en mémoire), l'étiquette de l'instruction, la suc- 
cession d'ordres BASIC de cette étiquette, puis l'instruction suivante 
et ainsi de suite. 

Les ordres BASIC tels que PRINT, CLS, PEEK... ne sont pas stockés 
sous leur forme littérale, ce qui consommerait trop d’octets (un octet 
par lettre soit cinq pour l’ordre PRINT) ; ils sont représentés par un 
ou deux codes ASCII supérieurs à 127, ce qui facilite le travail de 
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l’interpréteur pour la traduction : en effet, les octets des tokens com- 
mencent alors par un bit égal à 1. 

Exécutons maintenant ce programme par RUN. On voit apparaî- 
tre à l’écran : 


367 6 368 13 
369 8 378 18 
371 6 372 197 
373 32 374 67 
375 72 376 51 
377 45 378 80 
379 49 388 8 
381 1é 382 (] 
383 28 384 8 
385 191 386 32 
387 34 388 éé 
389 79 390 78 
391 74 392 79 
393 85 394 82 
395 34 396 (] 


Voici les seize écrans que vous devez obtenir (seule la partie inté- 
ressante est représentée). 


ECRAN 1 ECRAN 2 

DE DE DE DE DE DE DE HE DE DE DE DE ED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEDE DE HD DE DE DE DE DD DE DE DE DE DE DE DE DD DE DE DD DE DE DE DE DE DE 
* 

$ 367 (] 368 13 * * 397 43 398 @ * 
* 369 8 378 18 x x 399 38 488 (] * 
* 317 @ 372 197 # * 401 2 402 5 * 
* 373 32 374 67 * * 483 8 484 193 * 
* 375 72 376 S1 * * 405 239 a8é 16 * 
* 377 45 378 86 * * 407 32 488 Î * 
* 379 49 380 (] * *x 409 32 410 2 * 
* 381 1é 382 8 * *x 411 11 412 @ * 
* 383 20 384 (] * * 413 194 414 239 * 
* 385 191 386 32 * * 415 25 4ié 145 * 
* 387 34 388 66 * * 417 32 418 1 * 
* 389 79 3970 78 * * 419 32 4208 2 * 
* 391 74 392 79 #* * 421 17 422 8 * 
* 393 85 394 82 * * 423 195 424 239 * 
* 395 34 396 8 * *x 425 26 426 246 * 
* * * * 
DER DE DE DE ED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE DEN DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DIE DE DE DE DE DEEE 


99.2 


ECRAN 3 


EDEN DE DE DE DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE EEE EE Xe 


* * 
* 427 2 428 32 * 
* 429 i 438 2 * 
* 431 23 432 8 * 
* 433 196 434 239 * 
* 435 245 436 26 * 
* 437 208 438 1 * 
* 439 8 448 5SS * 
* 441 8 442 586 * 
* 443 ] 444 13 * 
* 445 29 44é 8 * 
* 447 197 448 239 * 
* 449 ié 458 32 * 
* 451 1 452 32 * 
* 453 13 454 39 * 
* 455 (] 456 69 * 
* * 


DD DE DE DE DE DE DE DE HE DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE 6 Xe 


ECRAN 5 

DD DE DD DD DE DE DE D DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DEN 

* 
* 487 245 488 31 * 
* 489 154 490 153 * 
* 491 25 492 100 * 
* 493 137 494 8 * 
* 495 24 496 (] * 
* 497 59 498 (] * 
* 499 13 508 71 * 
* 501 8 502 216 * 
* 503 239 584 28 * 
* 505 239 586 26 * 
* 507 32 508 1 * 
* 509 32 518 13 * 
* 511 80 512 8 * 
* 513 217 514 239 * 
* 515 27 S1é6 162 * 
* * 
DH DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DEN 


ECRAN 7 
DD DE DD DE DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE D 
* * 
* 547 40 548 31 * 
* 549 8 558 8 * 
* 551 131 S52 46 * 
* 553 144 554 41 * 
#*# 555 244 556 26 * 
#*# 557 8 558 1 * 
* 559 246 568 255 * 
*# 561 18 Sé2 48 * 
* 563 31 564 (] * 
* 565 8 Séé 132 * 
* 567 aé 568 144 * 
* 569 41 570 (] * 
* 571 29 572 8 * 
#* 573 89 574 (] * 
* 575 158 576 32 * 
* * 


EDEN DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE EDEN 


ECRAN 4 
DID DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EDEN NE 
* * 
* 457 193 458 239 * 
* 459 25 468 45 * 
* déi 32 462 1 * 
* 463 32 464 13 * 
* 465 58 4éé 8 * 
* 467 és 468 83 * 
* 469 210 478 239 * 
* 471 31 472 8 * 
* 473 8 474 8 * 
* 475 29 476 135 * 
* 477 32 478 Î * 
* 479 13 480 62 * 
* 481 (] 482 65 * 
* 483 83 484 68 * 
* 485 198 48é 239 * 
* * 


DEEE DE DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE NE 


ECRAN 6 

ED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DIE EN 

* 
* 517 6 518 (] * 
* 519 17 528 8 * 
* 521 68 522 (] * 
* 523 3 524 89 * 
* 525 (] 526 193 * 
* 527 239 528 34 * 
* 529 72 530 69 * 
* 531 76 532 76 * 
* 533 79 534 34 * 
* 535 8 536 35 * 
* 537 (] 538 76 * 
* 539 8 548 13 * 
* 541 76 542 (] * 
* 543 193 544 239 * 
* 545 255 546 18 * 
* * 
ED DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 


ECRAN 8 
DD DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 
* * 
* 577 13 578 185 * 
* 579 8 588 282 * 
* 581 239 582 26 * 
* 583 111 584 Î * 
* 585 32 586 236 * 
* 587 32 588 13 * 
* 589 2 598 (] * 
* 591 193 592 32 * 
* 593 230 594 32 * 
* 595 25 596 38 * 
* 597 Î 598 138 * 
* 599 8 é8a 30 * 
* 681 8 682 98 * 
* 603 8 684 158 * 
* 605 32 686 13 * 
* * 


MED DE DE DE NE DE DE DE DE DE DE JE DE DE DE ME DE DE DE DE DE DE DE DE DEEE 
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ECRAN 9 ECRAN 18 


2666 6 6 D DE DE DE JE 6 6 DE DE 6 6 6 6 EE 6 EE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE DE DE DE DE DE DE DE DE DEEE JE DEEE 


* x * * 
* 607 114 688 8 * * 637 114 638 @ * 
* 609 201 618 239 * * 639 281 é48 57 * 
* 611 13 612 105 * x 641 255 642 18 * 
* 613 8 614 282 x * 643 48 644 13 * 
* 615 32 éié 236 * * 645 114 é46 (] * 
* 617 32 618 13 * * 647 281 648 41 * 
* 619 185 628 (] * *x 649 44 650 13 * 
* 621 2682 622 244 * *x 651 114 652 8 * 
* 623 25 624 28 * * 653 201 654 244 * 
* 625 32 626 230 * * 655 15 é5é 59 +* 
* 627 32 628 16 * * 657 255 658 18 * 
* 629 8 638 45 * * 659 48 ééa 13 * 
* 631 8 632 100 x x» 661 114 é62 8 * 
* 633 8 634 191 * * 663 281 éé4 244 * 
* 635 32 636 13 * * 665 15 ééé 41 * 
* * + * 


DH DE DE HE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 


ECRAN 11 ECRAN 12 
ED DE DE DE DE DE DE DE HE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEN 
* * *# * 
* 667 1 é68 176 * * 697 210 698 44 * 
* 669 32 678 13 * * 699 15 708 41 * 
$ 671 114 672 (] * * 701 242 702 34 * 
* 673 281 674 8 * *x 703 67 7064 34 * 
* 675 48 676 8 * * 705 32 706 235 * 
* 677 118 678 8 * *x 707 32 708 29 * 
* 679 191 688 1 * * 709 35 710 3 * 
* 681 163 682 32 * * 711 32 712 32 * 
* 683 3 684 123 *x * 713 32 714 @ * 
* 685 8 686 210 x x 715 74 716 8 * 
* 687 1 688 32 * * 717 120 718 @ * 
* 687 161 6978 32 * * 719 158 720 32 * 
* 691 255 692 117 # * 721 13 722 114 * 
* 693 48 694 3 * * 723 8 724 281 * 
* 695 123 696 (] * * 725 239 726 13 * 
* * * * 


D HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE NE 


ECRAN 13 ECRAN 14 
DH DE DE DE DE DE DE DE DEN DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DIE EDEN DE 
* * * * 
* 727 185 728 (] * * 757 48 758 13 * 
* 729 282 730 32 * * 759 114 768 8 * 
* 731 236 732 32 * * 761 201 762 41 * 
* 733 13 734 185 x x 763 44 764 13 * 
* 735 (] 736 202 * *x 765 114 766 (] * 
* 737 244 738 25 * * 767 281 768 244 * 
* 739 28 748 32 * * 769 15 770 59 * 
* 741 238 742 32 * * 771 255 772 18 * 
* 743 16 744 1 * * 773 48 774 13 * 
* 745 191 746 32 * * 775 114 776 (] * 
* 747 35 748 22 * * 777 201 778 244 * 
* 749 44 750 13 * x 779 15 788 41 * 
* 751 114 752 8 * * 781 1 782 176 * 
* 753 281 754 57 * * 783 32 784 13 * 
* 755 255 756 18 * *x 785 114 786 @ * 
* * + % 


EEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 
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ECRAN 15 ECRAN 1ié 


DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DEEE EEE RER RER ERERRX 


* * * 
* 787 201 788 (] * * 817 158 818 (] * 
* 789 15 790 8 * * 819 191 828 32 * 
#* 791 139 792 8 * * 821 13 822 8 * 
* 793 191 794 32 * * 823 8 824 193 * 
* 795 35 796 22 +* * 825 8 826 18 * 
* 797 44 798 1 * * 827 @ 828 168 * 
* 799 191 8608 35 * * 829 6 838 168 * 
* 801 22 8682 44 * * 831 32 832 29 * 
* 803 8 884 11 x »*x 833 67 834 3 * 
* 805 8 886 148 *x * 835 8 836 é * 
* 807 8 868 176 * *x 837 (:] 838 178 * 
* 607 32 818 13 * * 839 8 848 152 * 
* 811 185 812 8 * * 641 8 842 @ * 
* 813 282 814 8 * * 843 8 844 8 * 
* 615 11 81é 8 * * 845 8 846 193 * 
* * +» * 
DD DE DE DE DE DE DE DE DE DE DE DE DE DE DD DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DD DE DE DE DE DE DE DE DE DE DE HE 


Examinons la signification de ces codes ASCII : 


Mémoire Code Signification 

367 0 Début du programme BASIC. 

368 13 13+256+*0=13 ; longueur de l'instruction 

369 0 BASIC qui suit. 

370 10 10+256*0=10 ; étiquette de 

371 0 l'instruction BASIC considérée. 

372 197 Le code ASCII 197 correspond à l'ordre 
BASIC REM : c’est un token. 

373 32 Le code ASCII 32 correspond à un espace. 

374 67 Code ASCII de C. 

375 72 Code ASCII de H. 

376 51 Code ASCII de 3. 

377 45 Code ASCII de —. 

378 80 Code ASCII de P. 

379 49 Code ASCII de 1. 

380 0 Fin de l'instruction BASIC n° 10 ; début de 
la suivante. 

381 16 16+256+*0=16 ; longueur de l'instruction 

382 0 BASIC qui suit. 

383 20 20+256+*0=20 ; étiquette de 

384 0 l'instruction BASIC considérée. 


=: 26: 


385 191 Le code ASCII 191 correspond à l’ordre 
BASIC PRINT : c’est un token. 


386 32 Code ASCII de espace. 

387 34 Code ASCII de ‘’. 

388 66 Code ASCII de B. 

389 79 Code ASCII de ©. 

390 78 Code ASCII de N. 

391 74 Code ASCII de J. 

392 79 Code ASCII de O. 

393 85 Code ASCII de U. 

394 82 Code ASCII de R. 

395 34 Code ASCII de ‘”’. 

396 0 Fin de l'instruction BASIC n° 20 ; début de 
la suivante. 


Nous venons donc de constater les faits suivants : 


Un programme BASIC commence à l'adresse 367. 
Un programme BASIC est précédé d’un O. 


Toutes les instructions BASIC sont séparées les unes des autres par 
un 0 (nous verrons par la suite que le O est utilisé aussi pour d’autres 
besoins). 


Une instruction BASIC commence par la longueur occupée par 
cette instruction en mémoire ; cette longueur est stockée dans deux 
mémoires. 


L'ordre REM est stocké sous forme d’un seul code ASCII, de même 
l’ordre PRINT ainsi que les autres ordres BASIC ; ce code ASCII 
a une valeur supérieure à 127, il est habituellement appelé token. 
La liste des tokens de l’Amstrad est donnée en Annexe C. 


Nous allons continuer l'interprétation des instructions de notre pro- 


gramme en regroupant les codes ASCII entre deux O de fin 
d'instruction. 


A partir de la mémoire 397, nous trouvons les codes ASCII corres- 


pondant à l'instruction BASIC : 


30 A%=2 : B%=145 : Ch-758 : Dh--456 


= 26 


43-0 
30-0 


5-0 


193 


239 
16 
32 


32 
2-11-0 
194 


239 

25 

145 
32-1-32 
2-17-0 
195 
239 

26 
246-2 


32-1 
2-23-0 
196 

239 

245 
26-200-1 


43+256*0=43 ; longueur de l'instruction. 
30+256+0 = 30 ; étiquette de l'instruction. 
Indicateur de variable entière. 


La valeur de cette variable est stockée 
à partir de l’adresse égale à celle du 
LOMEM + 5 +0*x256 = LOMEM +5. 


193 est le code ASCII de A (soit 65) augmenté de 128 ; 
c'est la variable A% et A est le dernier caractère de cette 
variable. 

Token de =. 

Valeur numérique codée, 16 correspond à la valeur 3. 
Code ASCII de espace. 

Séparation de deux ordres à l’intérieur d’une instruction ; 
c'est la traduction de : de séparation. 

Code ASCII de espace. 

Variable entière dont la valeur est stockée à LOMEM +11. 


Nom de la variable B% 
(code ASCII de B+128). 


Token de =. 

Constante codée sur un octet. 

Valeur de la constante : 145. 

Espace : espace. 

Variable entière dont la valeur est stockée à LOMEM +17. 
Code ASCII de C+128, variable C%. 

Token de =. 

Constante codée sur deux octets. 


Valeur de cette constante, 
soit 246+2*x256=758. 


Espace : 
Variable entière dont la valeur est stockée à LOMEM + 23. 
Code ASCII de D+128, variable D%. 

Token de =. 

Token de -—. 


Constante codée sur deux octets, soit 
200 +1+*256=-456. 


97 IE 


Le codage des variables et des constantes mérite quelques expli- 
cations complémentaires avant de continuer. 


Codage des variables 


On trouve tout d’abord un octet pour indiquer le type de varia- 
ble ; cet octet est égal à 2 pour une variable entière, à 3 pour une 
variable albphanumérique, à 13 pour une variable en virgule flottante. 

Puis les deux octets suivants contiennent l’adresse, dans la zone 
LOMEM/ARYTAB ou ARYTAB/STREND), de la valeur de cette varia- 
ble. Avant de faire RUN, ces deux octets sont bien sûr à O, car l’inter- 
préteur ne sait pas encore où seront stockées les valeurs ; au fur et 
à mesure que l’interpréteur rencontre les variables pendant l’exécu- 
tion du programme, il attribue un emplacement pour la valeur de 
la variable dans la zone LOMEM/ARYTAB ou ARYTAB/STREND et il 
note l’adresse dans ces deux octets. Cette particularité du BASIC de 
l’Amstrad permet de diminuer les temps de calcul. 

Enfin on trouve les codes ASCII représentant les caractères de la 
variable ; la longueur de chaîne n'étant pas imposée, on augmente 
le code ASCII du dernier caractère de 128 pour indiquer la fin de 
la chaîne. 


Codage des constantes 


La procédure de codage des variables augmente la rapidité de cal- 
cul, mais elle augmente aussi la taille du programme en mémoire. 
Pour les constantes, l’Amstrad utilise aussi une technique qui aug- 
mente la rapidité de calcul mais qui, cette fois, diminue l’encombre- 
ment mémoire. 

Si la constante ne comporte qu’un chiffre, celui-ci est codé direc- 
tement avec la convention suivante : 


Octet = 14 si la constante est égale à O 
Octet = 15 si la constante est égale à 1 
Octet = 16 si la constante est égale à 2 
Octet = 17 si la constante est égale à 3 
Octet = 18 si la constante est égale à 4 
Octet = 19 si la constante est égale à 5 
Octet = 20 si la constante est égale à 6 
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Octet = 21 si la constante est égale à 7 
Octet = 22 si la constante est égale à 8 
Octet = 23 si la constante est égale à 9 


Si la constante est un entier inférieur à 255, on code cette valeur 
directement dans un octet et on le fait précéder d’un octet égal à 25. 

Si la constante est un entier supérieur à 255 et inférieur à 65535, 
on code cette valeur sur deux octets suivant la technique habituelle : 
premier octet augmenté de 256 fois le second, et on les fait précéder 
par un octet égal à 26. 

Si la constante est un nombre en hexadécimal, elle commence par 
& et sa valeur est inférieure à 65535 : on la code donc comme ci- 
dessus et on fait précéder les deux octets par un octet égal à 28. 

Si la constante est un nombre en binaire, elle commence par &X 
et sa valeur est inférieure à 65535 ; on la code comme ci-dessus et 
on fait précéder les deux octets par un octet égal à 27. 

Si la constante représente une adresse (par exemple dans un 
GOTO), elle est inférieure à 65535 ; on peut donc la coder sur deux 
octets que l’on fait précéder de 30, et cela avant l'exécution du pro- 
gramme. Mais lorsque l’on exécute le programme, l’interpréteur 
trouve au fur et à mesure de ses besoins les adresses réelles de bran- 
chement ; il remplace alors la valeur des étiquettes par l'adresse abso- 
lue, qui se code toujours sur deux octets qu’il fait précéder par un 
octet égal à 29, pour reconnaître une étiquette d’une adresse relative. 

Enfin, si l’on a une constante ne répondant à aucune des classes 
précédentes, on met un premier octet égal à 31 suivi par cinq octets 
qui définissent sa valeur, en utilisant la méthode décrite à la section 
suivante (codage de la valeur des variables en virgule flottante). 

Les valeurs négatives s’obtiennent par le token de ‘’-’’ en tête de 
la constante. 

Nous pouvons maintenant reprendre notre exploration. 


A partir de la mémoire 440, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


40 E-2 : EA-45 : ASR-78.5 : ASDF-456.2 


55-0 55+256*0=55 ; longueur de l'instruction. 
40-0 40+256*0=40 ; étiquette de l'instruction. 
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13-29-0-197 


239 

16 
32-1-32 
13-39-0 


69-193 
239 
25-45 
32-1-32 
13-50-0 


65-83-210 
239 

31 
0-0-0-29-135 
32-1 

13-62-0 


65-83-68-198 


239 

245 

31 
154-153-25 
100-137 


197-128 +69 ; 69 est le code ASCII de E : variable 
E en virgule flottante stockée en LOMEM +29. 


Token de =. 
Constante égale à 2. 
Séparation espace : espace. 


Variable en virgule flottante stockée en 
LOMEM + 39. 


Codes ASCII de E et A+128 ; variable EA. 
Token de =. 

Constante sur un octet, valeur 45. 
Séparation espace : espace. 


Variable en virgule flottante stockée 
en LOMEM +50. 


Code ASCII de A, S et R+128 ; variable ASR. 
Token de =. 

Constante en virgule flottante. 

Valeur (1+29/128)+2"(135-129)=78.5. 
Séparation espace :. 


Variable en virgule flottante stockée 
en LOMEM +62. 


Codes ASCII de A, S, Det F+128; 
Variable ASDF. 


Token de =. 

Token de —. 

Variable en virgule flottante. 
(1+100/128 +25/32768 + 153/8388608 + 


154/2147483648)*x2"(137 — 129) = 
456.19999, 


A partir de la mémoire 495, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


50 X=&1AEF : Y=&X10100010 


24-0 24+256*0=24 ; longueur de l'instruction. 
50-0 50+256*0=50 ; étiquette de l'instruction. 
13-71-0 Variable en virgule flottante stockée en LOMEM +71. 
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216 
239 
28-239-26 


32-1-32 
13-80-0 
217 

239 
27-162-0 


Code ASCII de X, +128, variable X. 
Token de =. 


Constante en hexadécimal, codée sur 2 octets ; valeur 
239+26*256=6895 ou &I1AEF. 


Séparation espace : espace. 

Variable en virgule flottante stockée en LOMEM +80. 
Code ASCII de Y +128 ; variable Y. 

Token de =. 


Constante en binaire, codée sur 2 octets ; valeur 162 
ou &X10100010. 


A partir de la mémoire 519, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


60 A$="HELLO" 


17-0 17+256*x0=17 ; longueur de l'instruction. 
60-0 60+256*0=60 ; étiquette de l'instruction. 
3-89-0 Variable alphanumérique stockée en LOMEM +89. 

193 Code ASCII de ‘‘A’’+128, variable A. 
239 Token de =. 

34 Code ASCII de ‘’. 

72 Code ASCII de H. 

69 Code ASCII de E. 

76 Code ASCII de L. 

76 Code ASCII de L. 

79 Code ASCII de O. 

34 Code ASCII de ‘”’. 


À partir de la mémoire 536, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


70 A-PEEK(44675)+256+*PEEK(44676) 


35-0 35+256*x0=35 ; longueur de l'instruction. 
70-0 70+256*0=70 ; étiquette de l'instruction. 
13-96-0 Variable en virgule flottante stockée en LOMEM +96. 
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193 
239 
2535-18 
40 

31 
0-0-131 
46-144 
41 

244 
26-0-1 
246 
255-18 
40 

31 
0-0-132 
46-144 
41 


Code ASCII de À, +128, variable A. 
Token de 
Token de PEEK. 

Code ASCII de (. 

Constante en virgule flottante codée sur 5 octets. 
(1+46/128+131/32768)+2"(144 — 129) = 

44675. 

Code ASCII de ). 

Token de +. 

Constante codée sur 2 octets ; valeur 0+256x1=256. 
Token de *. 

Token de PEEK. 

Code ASCII de (. 

Constante en virgule flottante codée sur 5 octets. 
(1+46/128+132/32768)+2"(144 —- 129) = 

44676. 

Code ASCII de ). 


A partir de la mémoire 571, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


80 FOR J-367 TO A STEP 30:CLS 


29-0 
80-0 

158 

32 
13-105-0 
202 

239 
26-111-1 
32 

236 

32 
13-96-0 
193 


29+256+*0=29 ; longueur de l'instruction. 

80 + 256*0 = 80 ; étiquette de l'instruction. 

Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J, +128 ; variable J. 

Token de 
Constante codée sur 2 octets ; Valeur 111+256*x1=367. 
Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +96. 
Code ASCII de À, +128 ; variable A. 


— 32 —- 


32 
230 
32 
25-30 
1 

138 


Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante codée sur un octet, valeur 30. 
Séparation :. 

Token de CLS. 


A partir de la mémoire 600, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


90 FOR 1-J TO J+28 STEP 2 


30-0 
90-0 

158 

32 
13-114-0 
201 

239 
13-104-0 
202 

32 

236 

32 
13-105-0 
202 

244 
25-28 

32 

230 

32 

16 


30+256+0=30 ; longueur de l'instruction. 

90 + 256*0 = 90 ; étiquette de l'instruction. 

Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1, +128 ; variable |. 

Token de =. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J, +128 ; variable J. 

Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de }, +128 ; variable ]J. 

Token de +. 

Constante codée sur 1 octet, valeur 28. 

Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante de valeur 2. 


A partir de la mémoire 630, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


100 PRINT l;PEEK(I),1+1;PEEK(I+ 1}:NEXT 
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45-0 
100-0 
191 

32 
13-114-0 
201 

59 
255-18 
40 
13-114-0 
201 

41 

44 
13-114-0 
201 

244 

15 

49 
255-18 
40 
13-114-0 
201 

244 

15 

41 

176 

32 
13-114-0 
201 


45+256+*0=45 ; longueur de l'instruction. 

100 +256*0 = 100 ; étiquette de l'instruction. 

Token de PRINT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1! +128 ; variable I. 

Code ASCII du caractère :. 

Token de PEEK. 

Code ASCII du caractère (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de |! +128 ; variable I. 

Code ASCII du caractère ). 

Code ASCII du caractère ,. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de ! +128 ; variable I. 

Token de +. 

Constante de valeur 1. 

Code ASCII du caractère :. 

Token de PEEK. 

Code ASCII du caractère (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1! +128 ; variable I. 

Token de +. 

Constante de valeur 1. 

Code ASCII du caractère ). 

Token de NEXT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1, +128 ; variable |. 


A partir de la mémoire 675, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


110 PRINT:INPUT R$: IF LEFT$(R$,1) < > “C" THEN 140 


= 44. = 


45-0 
110-0 
191 


163 

32 
3-123-0 
210 


161 

32 

32 
255-117 
40 
3-123-0 
210 

44 

15 

41 

242 

34 

67 

34 

32 

235 

32 
29-35-3 


45+256*0=45 ; longueur de l'instruction. 
110+256*x0=110 ; étiquette de l'instruction. 
Token de PRINT. 

Séparation :. 

Token de INPUT. 

Code ASCII de espace. 

Variable alphanumérique stockée en LOMEM + 123. 
Code ASCII de R+128 ; variable R$. 
Séparation :. 

Token de IF. 

Code ASCII de espace. 

Code ASCII de espace. 

Token de LEFT$. 

Code ASCII du caractère (. 

Variable alphanumérique stockée en LOMEM + 123. 
Code ASCII de R+128 ; variable R$. 

Code ASCII du caractère ,. 

Constante de valeur 1. 

Code ASCII du caractère ). 

Token de < >. 

Code ASCII du caractère ”’. 

Code ASCII du caractère C. 

Code ASCII du caractère ”’. 

Code ASCII de espace. 

Token de THEN. 

Code ASCII de espace. 


Adresse absolue codée sur 2 octets ; 
valeur 35+256x*3 = 803. 


À partir de la mémoire 715, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


120 FOR 1-J TO J+28 STEP 2:PRINT #8,I;PEEK(I),1+ 1;PEEK(I+ 1):NEXT | 


74-0 74+256*0=74 ; longueur de l'instruction. 
120-0 120+256*0=120 ; étiquette de l'instruction. 


35 


158 
32 
13-114-0 

201 

239 
13-105-0 
202 

32 

236 

35 
13-105-0 
202 

244 
25-28 

32 

230 

32 

16 

1 

191 

32 

35 

22 

44 
13-114-0 

201 

59 
255-18 
40 
13-114-0 
201 

41 

44 
13-114-0 

201 


Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Token de =. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J+128 ; variable J. 

Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de +128 ; variable J. 

Token de +. 

Constante codée sur 1 octet, valeur 28. 

Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante de valeur 2. 

Séparation :. 

Token de PRINT. 

Code ASCII de espace. 

Code ASCII de #. 

Constante de valeur 2. 

Code ASCII de ,. 

Variable en virgule flottante stockée en LOMEM+114. 
Code ASCII de 1+128 ; variable I. 

Code ASCII de :. 

Token de PEEK. 

Code ASCII de (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Code ASCII de ). 

Code ASCII de ,. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 


= 96" 


244 

15 

59 
255-18 
40 
13-114-0 
201 

244 

15 

41 

1 

176 

32 
13-114-0 
201 


Token de +. 

Constante de valeur 1. 

Code ASCII de ;. 

Token de PEEK. 

Code ASCII de (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Token de +. 

Constante de valeur 1. 

Code ASCII de ). 

Séparation :. 

Token de NEXT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable |. 


A partir de la mémoire 789, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


130 PRINT #8,:PRINT #8 


15-0 
130-0 
191 
32 

35 

22 
44 

1 

191 
35 

22 
44 


15+256*0=15 ; longueur de l'instruction. 
29+256*0=130 ; étiquette de l'instruction. 
Token de PRINT. 

Code ASCII de espace. 

Code ASCII de #. 

Constante de valeur 8. 

Code ASCII de ,. 

Séparation :. 

Token de PRINT. 

Code ASCII de #. 

Constante de valeur 8. 

Code ASCII de .. 


A partir de la mémoire 804, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


140 NEXT J 


2:37 = 


11-00 11+256+*0=11 ; longueur de l'instruction. 
140-0 140+256+0Q= 140 ; étiquette de l'instruction. 
176 Token de NEXT. 
32 Code ASCII de espace. 
13-105-0 Variable en virgule flottante stockée en LOMEM +105. 
202 Code ASCII de J+128 ; variable |. 


A partir de la mémoire 815, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


150 END 


11-00 11+256*0=11 ; longueur de l'instruction. 
140-0 140+256*0= 140 ; étiquette de l'instruction. 
152 Token de END. 


Puis nous trouvons quatre codes ASCII égaux à zéro ; le premier 
correspond à la fin d'instruction, les trois suivants à l'indication de 
fin de programme BASIC. 

La longueur de l'instruction est stockée en début d'instruction pour 
les raisons suivantes. 

Lorsque l’interpréteur BASIC rencontre pour la première fois un 
GOTO ou un GOSUB suivi d’une étiquette, il ne sait pas à partir de 
quelle mémoire est implantée l'instruction vers laquelle on demande 
le branchement. L'interpréteur commence par regarder dans les 
mémoires 31467 et 31468 le numéro d’'étiquette de la première ins- 
truction ; si c’est la bonne, il effectue le branchement du programme 
sur cette instruction. Dans le cas contraire, il regarde dans les mémoi- 
res 368 et 369 la longueur de l'instruction ; il calcule l'adresse du 
début de l'instruction suivante, et il va regarder à cette nouvelle 
adresse l'étiquette de l'instruction suivante ; si c’est la bonne, il effec- 
tue le branchement ; sinon, il calcule l’adresse de l'instruction sui- 
vante, et ainsi de suite. Si la longueur de l'instruction n’était pas indi- 
quée, l’interpréteur serait obligé d'explorer toute l'instruction jusqu’à 
l'étiquette suivante, ce qui lui ferait perdre beaucoup de temps. Le 
même principe est utilisé pour l’ordre LIST. 


* 
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Une dernière remarque : l’effet de la commande NEW sur l’Ams- 
trad est beaucoup plus radical que sur d’autres ordinateurs. En effet, 
de nombreux ordinateurs se contentent de remettre les quatre pre- 
mières mémoires du programme à zéro, ce qui permet de récupérer 
après quelques PEEK et POKE un programme intempestivement détruit 
par NEW. Par contre, l’Amstrad remet toutes les mémoires dans leur 
état initial et le programme est complètement et définitivement effacé. 


CODAGE DES VARIABLES 


Introduisons le programme suivant : 


S REM CH3-P2 

19 CLS : A1=0 : A2=0 : A3=0 : A4=0 : AS=0 : I=0 : J=0 : R$="2" 
20 A=256 : BC=2 : DIEF=1.2 : G#=4 : HI%=5 : L$="BONJOUR" : MM$="QWUERTY" 
30 X=&2AEF : Y=&X18100810 

49 LLS=LS + MMS : L$=MMS + "1234" 

50 INPUT W$ : INPUT US$ 

68 DIM 2(2),22(1,2),X2C1,Y$C3) 

7@ FOR 1=8 TO 2 : 2C(I)=I : NEXT 1! 

88 FOR 1=9 TO 1 : X2CI1)=100%1 : NEXT 1! 

98 FOR 1=9 TO i : FOR J=@ TO 2 : 22(1,J)=18@#1+J : NEXT J : NEXT 1 
190 FOR 1=0 TO 3 : Y$CI)=CHRSCI+65) : NEXT 1 

118 Ai=PEEK(44675)+AXPEEK(44676) : REM LOMEM 

128 A2=PEEK(44679)+AxPEEK(44688) : REM ARYTAB 

138 AS=PEEK(44681)+A*PEEK(44682) : REM STREND 

148 A4=PEEK(45197)+A*PEEK(45198) : REM FRETOP 

159 AS=PEEK(45199)+AXPEEK(45208) : REM HIMEM 

168 CLS 

179 FOR J=A1 TO A2 STEP 38 

188 PRINT "LOMEM À ARYTAB";A1;"/";A2 

198 FOR I=J TO J+28 STEP 2 : IF 1)A2 THEN 218 

288 PRINT : PRINT I1;PEEK(I),1+13PEEK(I+1); 

218 NEXT I! 

228 PRINT : PRINT : INPUT R$ : IF LEFT$#CR$,1)C>"C" THEN 278 
236 PRINT #8, : PRINT 48,"LOMEM À ARYTAB";A1;"/"3A2 

248 FOR I=J TO J+28 STEP 2 : IF I1>A2 THEN 268 

250 PRINT #8, : PRINT #8,1;PEEK(1),1+13PEEK(1+1); 

2686 NEXT I : PRINT 48, : PRINT #8, 

278 CLS 

288 NEXT J 

298 FOR J=A2 TO A3 STEP 38 

308 PRINT "ARYTAB À STREND" ;42;"/"3;A3 

318 FOR I=J TO J+28 STEP 2 : IF 1243 THEN 330 

320 PRINT : PRINT 13;PEEK(I),1+13PEEK(C1+1) ; 

334 NEXT 1! 

348 PRINT : PRINT : INPUT R$ : IF LEFT$(R#$,1)<>"C" THEN 398 
350 PRINT #8, : PRINT #8,"ARYTAB À STREND" ;342;"/" 33 

368 FOR I1=J TO J+28 STEP 2 : IF 1243 THEN 380 

378 PRINT #8, : PRINT #8,1;PEEKCI),1+1;PEEK(I+#1) ; 

380 NEXT 1 : PRINT #8, : PRINT #8, 

390 CLS 

489 NEXT J 

418 FOR J=A5 TO A4 STEP -39 

42@ PRINT "HIMEM À FRETOP";45;"/";A4 

438 FOR I=J TO J-28 STEP -2 

448 PRINT : PRINT 13PEEK(1) ,1+13PEEK(1+1) 3 


456 NEXT I! 
468 PRINT : PRINT : INPUT R$ : IF LEFT#(R$,1)<>"C" THEN 518 
47@ PRINT #8, : PRINT #8,"HIMEM À FRETOP";A5;"/";A6 
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488 FOR 1=J TO J-28 STEP -2 : IF I1<A4 THEN 568 

498 PRINT #8, : PRINT #8,1;PEEK(1),1+1;PEEK(1+1); 

S06 NEXT I : PRINT #8, : PRINT #8, 

518 CLS 

528 NEXT J 

530 FOR I=AS TO A4 STEP -1 

548 PRINT CHR$#(PEEK(I))3; : NEXT 1! 

558 PRINT : PRINT : INPUT R$ : IF LEFT$CR#$,1)(>"C" THEN 598 
S68 PRINT #8, : PRINT #8, 

576 FOR I=AS TO A4 STEP -1 : PRINT #8,CHR$#(PEEK(I))3; : NEXT I! 
580 PRINT #8 

590 END 


Dans sa première partie, qui va jusqu’à l’ordre 100, nous prépa- 
rons les mémoires qui vont contenir les variables en leur donnant 
une valeur. Puis, après avoir calculé les valeurs actuelles de LOMEM, 
ARYTAB, STREND, FRETOP et HIMEM, nous faisons successivement 
l'exploration des trois zones LOMEM à ARYTAB, ARYTAB à STREND), 
HIMEM à FRETOP, tout en les affichant. 


10 à 100 


Nettoyage de l'écran, puis nous donnons des valeurs à toutes les 
variables que nous désirons utiliser : soit pour réaliser le programme 
(variables A1, A2, A3, A4, A5, |, J, A), soit celles qui sont placées à 
titre d'exemple, cela afin de réserver l’espace mémoire des variables 
avant de demander les valeurs de ARYTAB et STREND. Nous avons 
choisi un où plusieurs exemples de chaque type de variable : 

e variables dites en virgule flottante, 
e variables entières, 
e variables a/phanumériques, dimensionnées où non. 


110 à 150 


Nous calculons les valeurs actuelles de LOMEM, ARYTAB, STREND, 
FRETOP et HIMEM. 


160 à 280 


Exploration et affichage des mémoires comprises entre LOMEM et 
ARYTAB, avec option d'édition sur imprimante si l’on frappe un C. 


290 à 400 


Exploration et affichage des mémoires comprises entre ARYTAB et 
STREND, avec option d'édition sur imprimante si l’on frappe un C. 
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410 à 520 


Exploration et affichage des mémoires comprises entre HIMEM et 
FRETOP, avec option d'édition sur imprimante si l’on frappe un C. 


530 à 580 


Boucle permettant la traduction en caractères des codes ASCII trou- 


vés entre HIMEM et FRETOP. 


590 


Fin du programme. 


Lorsque ce programme est introduit, sauvegardez-le puis exécutez-le 
en donnant comme réponse, pour les deux valeurs de W$ : AAA puis 
BBBBB, et Z pour ne pas avoir d'édition sur l'imprimante ; vous devez 


obtenir les neuf écrans suivants : 


LLLELLELE LEE SSL LL LS SL LL SSL LL SE.) 


* * 
* LOMEN À ARYTAB 2604 / 2771 * 
* * 
* 2684 80 2685 8 * 
# 2686 65 2607 145 * 
* 2608 4 2687 8 * 
# 2618 6 2611 192 * 
* 2612 34 2613 148 * 
* 2614 1 2615 86 * 
* 2616 65 2617 146 * 
* 2618 4 2619 8 * 
* 2628 6 2621 48 * 
* 2622 945 2623 148 * 
#*# 2624 11 2625 8 * 
* 2626 65 2627 147 * 
* 2628 4 2629 8 * 
* 2638 86 2631 112 * 
* 2632 Si 2633 146 * 
* * 
DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DIE DE DE EDEN 
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ECRAN 2 


MODEM DE DEN DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EEE NE 


LOMEM À ARYTAB 2684 / 2771 


* 

* 

* 

* 2634 
* 2636 
* 2638 
* 2648 
* 2642 
* 2644 
* 2646 
* 2648 
* 2656 
* 2652 
* 2654 
#* 2656 
* 2658 
* 2668 
* 2662 
* 

* 


DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE Ne 


21 
65 
4 
6 
38 
31 
65 
4 
8 
38 
8 
281 
(] 
64 
148 


2635 
2637 
2639 
2641 

2643 
2645 
2647 
2649 
2651 

2653 
2655 
2657 
2659 
2661 

2663 


8 
148 
8 
88 
144 
6 
149 
8 
123 
144 
8 

4 

(] 
38 
8 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
+ 


ECRAN 3 
RE DE DE DE DE DE DE DE DE DE DE DEEE EEE EEE EN 
* * 
* LOMEM À ARYTAB 2684 / 2771 * 
+ * 
* 2664 0 2665 282 * 
*# 2666 94 2667 8 * 
* 2668 0 2669 128 #* 
* 2676 38 2671 148 * 
* 2672 80 2673 0 * 
* 2674 218 2675 2 * 
* 2676 1 2677 86 * 
* 2678 166 2679 41 * 
* 2680 8@ 2681 193 * 
* 2682 4 2683 8 * 
* 2684 8@ 2685 0 * 
* 2686 8 2687 137 * 
* 2688 8 2689 0 * 
# 2698 66 2691 195 * 
* 2692 4 2693 0 * 
* * 


EEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE NE 


ECRAN 5 
JDD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE IE HE 
* * 
* LOMEM À ARYTAB 2684 / 2771 * 
* * 
* * 
* 2724 8 2725 204 x 
* 2726 2 2727 180 * 
* 2728 101 2729 166 #* 
* 2730 0 2731 0 * 
* 2732 77 2733 205 * 
* 2734 2 2735 6 * 
* 2736 26 2737 2 * 
* 2738 0 2739 80 * 
* 2748 2ié6 2741 4 * 
* 2742 8@ 2743 8@ * 
* 2744 188 2745 43 * 
* 2746 142 2747 @ * 
* 2748 8 2749 217 * 
* 2758 4 2751 0 * 
* 2752 8 2753 0@ * 
* * 


HR HD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE NE 


ECRAN 7 
JDD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE DE EEK 
* * 
* ARYTAB À STREND 2771 / 2871 * 
* + 
* 2771 8 2772 8 * 
* 2773 218 2774 4 * 
* 2775 18 2776 8 * 
* 2777 1 2778 3 * 
* 2779 8 2788 8 * 
* 2781 8 2782 ®@ * 
* 2783 6 2784 8 * 
* 2785 0 2786 8 * 
* 2787 6 2788 0 * 
* 2789 129 2798 8 * 
*x 2791 0 2792 8 * 
* 2793 80 2794 130 * 
* 2795 1 2796 8 * 
* 2797 90 2798 218 * 
* 2799 4 2808 35 * 
* + 


KKHKKKHEKKKHREREEEREREEEEREREEXEXX 


ECRAN 4 


REED DE DE DEEE DE DE DE DE DE DE DE NE DE DE DE DE DE NE DE JE DEEE 


* x 
* LOMEM À ARYTAB 2604 / 2771 * 
* + 
* 2694 80 2695 806 * 
* 2696 8 2697 138 * 
* 2698 86 2699 0 * 
* 2708 68 2781 17 * 
* 2702 69 2703 198 * 
* 2704 4 2765 154 * 
* 2706 153 2707 153 * 
* 2768 25 2769 129 * 
* 2718 8 2711 08 * 
# 2712 199 2713 1 * 
* 2714 4 2715 8 * 
* 2716 6 2717 8 * 
* 2718 72 2719 281 * 
* 2728 1 2721 5 * 
* 2722 0 2723 8 * 
* * 


DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE 


ECRAN é 


EEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE HE HE 


* * 
* LOMEM À ARYTAB 2604 / 2771 * 
* * 
* * 
* 2754 34 2755 136 * 
* 2756 128 2757 0 * 
* 2758 76 2759 204 * 
* 2768 2 2761 13 * 
* 2762 111 2763 166 * 
* 2764 8 2765 8 * 
#* 2766 215 2767 2 * 
* 2768 5 2769 93 * 
* 2778 1éé 2771 8 * 
* * 
* * 
* * 
* + 
* * 
* + 
* * 

* 


DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE Ne 


ECRAN 8 
HE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DIE HE 
* * 
* ARYTAB À STREND 2771 / 2871 * 
* * 
* 2881 0 2882 2 * 
* 2803 3 2804 0 * 
* 2805 2 2886 à Li 
* 2807 0 2808 0€ * 
* 2809 0 2818 8 * 
* 2811 0€ 2812 80 * 
* 2813 0 2814 8 * 
* 2815 32 2816 132 * 
* 2817 8@ 2818 80 * 
* 2819 8 2828 8 * 
* 2821 129 2822 8@ * 
* 2823 0 2824 @ * 
* 2825 48 2826 132 * 
* 2827 80 2828 0 * 
* 2829 6 2838 8 * 
* * 
EDEN DE HE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 
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ECRAN 9 
EDEN DE DE DE DE DEEE DE DE DEN EE EEE EEE NE 


* 
ARYTAB À STREND 2771 / 


* 2871 * 
* * 
* 2831 138 2832 86 x 
* 2833 0€ 2834 0 * 
* 2835 64 2836 132 * 
* 2837 6 2838 8€ * 
#* 2839 216 2848 1 * 
* 2841 7 2842 8 * 
* 2843 1 2844 2 * 
* 2845 0 2846 8 * 
* 2847 6 2848 188 * 
* 2849 0 2858 6 * 
*# 2851 € 2852 217 * 
* 2853 2 2854 15 * 
* 2855 0 2856 1! * 
* 2857 4 2858 6 * 
* 2859 1! 2868 92 * 
* * 
DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EDEN D 


ECRAN 11 


HN DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE NE NE 


* 
HIMEM À FRETOP 42619/42585 


* * 
* * 
* 42619 89 42628 24 +* 
* 42617 82 42618 84 * 
* 42615 87 42éié 69 * 
* 42613 82 42614 81 * 
* 42611 79 42612 85 * 
* 42609 78 42610 74 * 
* 42607 éé 42688 79 * 
* 42605 51 426806 52 * 
* 42603 49 42684 58 * 
* 42601 84 426082 89 * 
* 42599 69 42688 82 * 
* 42597 81 42598 87 * 
* 42595 és 42596 és * 
* 42593 éé 42594 65 * 
* 42591 éé 42592 éé * 
* * 
DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE ED DE DE DE DE EDEN 


ECRAN 16 


HHHHHEREEEERLRELEREREEEEEEEEEEXE 


* * 
#* ARYTAB À STREND 2771 / 2871 x 
*% * 
* 2861 1éé 2862 1 * 
* 2863 91 2864 1éé * 
* 2865 1! 2866 98 x 
* 2867 166 2868 1 * 
* 2867 89 2878 1éé x 
* 2871 91 2872 166 * 
* % 
* * 
* x 
* * 
* * 
* * 
* % 
* * 
* * 
* * 
ED DEDE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE EDEN 


ECRAN 12 


HRHRHKRHEREREREREREERÉERÉÉEHRRÉRIR 


* * 
* HIMEM À FRETOP 42619/42585 * 
* * 
* 42589 éé 42590 éé * 
* 42587 éé 42588 65 * 
* 42585 68 42586 67 * 
* 42583 90 42584 7e * 
* 42581 98 42582 98 x 
* 42579 90 42588 90 * 
* 42577 90 42578 98 * 
* 42575 9e 42576 90 * 
*# 42573 96 42574 78 * 
* 42571 78 42572 90 * 
* 42569 (] 42578 8 + 
* 42567 8 42568 8 * 
* 42565 6 425é6é 8 * 
* 42563 8 42464 8 * 
*# 42561 (] 42562 8 + 
* * 
DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EDEN 


ECRAN 13 


YTREWGRUOJNOB4321YTREWGAAABBBBBABCDZ 


Commençons tout d’abord par rappeler les informations données 
au Chapitre 2 ; dans la zone LOMEN/ARYTAB nous allons trouver 
les variables simples, dans la zone ARYTAB/STREND les variables 
dimensionnées, dans la zone HIMEM/FRETOP les variables alphanu- 
mériques. Les premiers octets des variables, dimensionnées ou non, 
auront la signification suivante. 

Les premiers octets contiendront les codes ASCII représentant le 
nom de la variable ; le dernier caractère de la variable aura son code 
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ASCII augmenté de 128, ce qui indiquera à l’interpréteur qu'il s’agit 
du dernier caractère. 

L'octet suivant indiquera le type de variable : il sera égal à 7 pour 
indiquer une variable entière, égal à 2 pour une variable alphanu- 
mérique, égal à 4 pour une variable en virgule flottante. Puis les autres 
octets auront une signification différente suivant le type des variables . 

La valeur des variables simples entières est représentée par deux 
octets. On calcule la valeur suivante : premier octet + 256 fois le 
deuxième. Si le nombre obtenu est inférieur ou égal à 32767, la varia- 
ble a pour valeur ce nombre, on a alors un nombre positif ; si le nom- 
bre obtenu est supérieur à 32767 on retranche 65536 et c'est ce résul- 
tat qui représente la valeur de la variable, on a donc dans ce cas un 
nombre négatif. 

La valeur des variables simples en virgule flottante est représentée 
par cinq octets contenant l'argument et la mantisse du nombre : A1, 
A2, A3, A4, A5. 

La valeur d’un nombre positif sera donnée par : 


(1 + A4/128 + A3/32768 + A2/8388608 + A1/2147483648) + 2° "© 
La valeur d'un nombre négatif par : 
- (A4/128 + A3/32768 + A2/8388608 + A1/2147483648) + 2° "© 


Un nombre positif a son quatrième octet (A4) inférieur à 128 ; un 
nombre négatif a son quatrième octet (A4) supérieur ou égal à 128, 
ce qui signifie que le bit de poids fort de l’octet A4 est mis à zéro 
pour les nombres positifs et à un pour les nombres négatifs, ce qui 
permet de reconnaître les nombres positifs des nombres négatifs. 


EXEMPLE 
Le nombre 3 a pour représentation les quatre octets 0-0-0-64-130, 
soit : 
(1 + 64128) « 20-18 2 (1 + 0.5 + 2 = 3 
Les variables a/phanumériques sont suivies de trois octets : le pre- 
mier donne la longueur de la chaîne de caractères, les deux suivants 
l'adresse à laquelle la chaîne est stockée. Suivant la provenance de 


l'information, la chaîne se trouvera dans le programme BASIC ou dans 
la zone HIMEM/FRETOP. 
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Pour les variables dimensionnées, la représentation se complique 
un peu. Après le type et le nom de la variable, nous trouverons : 


e Deux octets indiquant le nombre de mémoires occupées par le 
tableau. 


e Le décompte des octets commençant au premier octet suivant cette 
information. 


e Un octet indiquant le nombre de dimensions. 


e Un octet donnant la valeur de la dernière dimension plus une unité ; 
ce nombre représente le nombre d'éléments relatifs à cette dimen- 
sion, puisque l’on commence avec l'indice zéro (si l’on dimen- 
sionne à 2, il y a trois éléments : indice O, indice 1, indice 2) ; puis 
un octet contenant un zéro ; l’avant-dernière dimension, un octet 
contenant un zéro, et ainsi de suite jusqu’à la première dimension 
suivie d’un zéro. 


e Ensuite on trouve la valeur du premier élément sur deux octets 
pour une variable entière, sur cinq octets pour une variable en vir- 
gule flottante, ou la longueur de la chaîne de caractères suivie de 
son adresse de stockage sur trois octets pour une variable alpha- 
numérique. Puis le deuxième élément, le troisième, et ainsi de suite. 
Le rangement est effectué de la manière suivante : on fait d’abord 
varier le premier indice en gardant tous les autres à zéro, puis on 
ajoute une unité au deuxième indice et on refait varier le premier 
indice, et ainsi de suite. Par exemple : pour A(2,3) on trouve suc- 
cessivement A(0,0), A(1,0), A(2,0), A(0,1), A(1,1), A(2,1) A(0,2), 
A(1,2), A(2,2), A(0,3), A(1,3), A(2,3). 


Nous sommes maintenant prêts à examiner ce que vient de nous 
donner notre programme. 


DE LOMEM A ARYTAB 


Mémoire Valeur Signification 


2604 0 Première variable commençant 
2605 O par A. 


_ 45 - 


2606 65 
2607 145 
2608 4 
2609 0 
2610 0 
2611 192 
2612 34 
2613 140 


Nom de la variable ; 65 code 
ASCII de À, 145 code ASCII 
de 1 augmenté de 128, soit fin 
du nom de la variable. 


Variable en virgule flottante. 


Valeur de la variable dans ce cas : 
(1+34/128+192/32768)x2"(140 — 129) = 
2604. 


Regroupons maintenant les octets relatifs à une variable : 


2614 à 2623 
1-0 
65-146 
4 
0-0-48-45-140 


2624 à 2633 
11-0 
65-147 
4 
0-0-112-51-140 


2634 à 2643 


21-0 

65-148 

4 
0-0-88-38-144 


Deuxième variable commençant par A. 
Code ASCII de A et de 2 : variable A2. 
Variable en virgule flottante. 


Valeur de la variable 2771 
(1+45/128+48/32678)*2"(140 - 129). 


Troisième variable commençant par A. 
Code ASCII de A et de 3 : variable A3. 
Variable en virgule flottante. 


Valeur de la variable 2871 : 
(1+51/128+112/32678)*2"(140 — 129). 


Quatrième variable commençant par A. 
Code ASCII de A et de 4 : variable A4. 
Variable en virgule flottante. 


Valeur de la variable 42584 : 
(1+38/128+88/32768)+*2"(144- 129). 
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2644 à 2653 
31-0 
65-149 
4 
0-0-123-38-144 


2654 à 2662 
0-0 
201 
4 
0-0-64-38-140 


2663 à 2671 
0-0 
202 
4 
0-0-128-38-140 


2672 à 2678 
0-0 
210 


86-166 


2679 à 2687 
41-0 
193 
4 
0-0-0-0-137 


Cinquième variable commençant par A. 
Code ASCII de A et de 5 : variable A5. 
Variable en virgule flottante. 


Valeur de la variable 42619 : 
(1+38/128+123/32768)*2°(144—-129). 


Première variable commençant par I. 
Code ASCII de | : variable |. 
Variable en virgule flottante. 


Valeur de la variable 2660 : 
(1+38/128+64/32768)x2"(140 — 129). 


Première variable commençant par J. 
Code ASCII de J : variable J. 
Variable en virgule flottante. 


Valeur de la variable 2664 : 
(1+38/128+128/32768)*2°(140 — 129). 


Première variable commençant par RK. 
Code ASCII de R : variable R$. 

Variable alphanumérique. 

Longueur de la chaîne 1. 
86+256+166=42582, adresse de stockage. 


Sixième variable commençant par A. 
Code ASCII de A : variable A. 
Variable en virgule flottante. 


Valeur de la variable 256 : 
2°(137 — 129). 
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2688 à 2697 


0-0 
66-195 
4 
0-0-0-0-130 
2698 à 2709 
0-0 


68-17-69-198 


4 
154-153-153-25-129 


2710 à 2715 
0-0 
199 


4-0 


2716 à 2722 
0-0 
72-201 


5-0 


2723 à 2729 
0-0 
204 
2 
10 
101-166 


Première variable commençant par B. 
Code ASCII de B et de C : variable BC. 
Variable en virgule flottante. 


Valeur de la variable 2 : 
2°(130— 129). 


Première variable commençant par D. 
Code ASCII de D, 1, E et F: 

variable D1EF 

Variable en virgule flottante. 


Valeur de la variable 1.1999999 : 
(1+25/128+153/32768 + 153/8388608)*2"(129 - 129). 


Première variable commençant par G. 
Code ASCII de G : variable G%. 
Variable entière. 

Valeur de la variable 4. 


Première variable commençant par H. 
Code ASCII de H et de 1 : variable HI%. 
Variable entière. 

Valeur de la variable 5. 


Première variable commençant par L. 
Code ASCII de L : variable L$. 

Variable alphanumérique. 

Longueur variable 10. 

101 +256+266 42597, adresse de stockage. 
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2730 à 2737 
0-0 
77-205 


26-2 


2738 à 2746 


216 
4 
0-0-188-43-142 


2747 à 2755 
0-0 
217 
4 
0-0-0-34-136 


2756 à 2763 


120-0 
76-204 
2 

13 
111-166 


2764 à 2770 


0-0 
215 


93-166 


Première variable commençant par M. 
Code ASCII de M et de M : variable MM. 
Variable alphanumérique. 

Longueur variable 6. 

26+256+2=538, adresse de stockage. 


Première variable commençant par X. 
Code ASCII de X : variable X. 
Variable en virgule flottante. 


Valeur de la variable 10991 : 
(1+43/128+188/32768)*2"(142 — 129). 


Première variable commençant par Y. 
Code ASCII de Y : variable Y. 
Variable en virgule flottante. 


Valeur de la variable 162 : 
(1+34/128)*2(136 — 129). 


Deuxième variable commençant par L. 
Code ASCII de L et de L : variable LL$. 
Variable alphanumérique. 

Longueur variable 13. 

111+256*x166 =42607, adresse de stockage. 


Première variable commençant par W. 
Code ASCII de W : variable W$. 
Variable alphanumérique. 

Longueur variable 3. 
93+256*166=42589, adresse de stockage. 
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DE ARYTAB A STREND 


2771 à 2794 


0-0 

218 

4 

18-0 

1 

3-0 
0-0-0-0-0 
0-0-0-0-129 


0-0-0-0-130 


2795 à 2836 


3-0 

2-0 

0-0-0-0-0 
0-0-0-32-132 
0-0-0-0-129 
0-0-0-48-132 


0-0-0-0-130 


0-0-0-64-132 


Première variable commençant par Z. 
Code ASCII de Z : variable Z. 
Variable en virgule flottante. 
Nombre d’octets d'occupation : 
Première dimension. 

Nombre d'éléments 1'° dimension : 3. 
Valeur de la variable Z(0)=0. 

Valeur de la variable Z(1)=1 : 
2°(129-129). 

Valeur de la variable Z(2)=2 : 
2°(130— 129). 


18. 


Deuxième variable commençant par Z. 
Code ASCII de Z et de Z : variable ZZ. 
Variable en virgule flottante. 
Nombre d’octets d'occupation : 
Nombre de dimensions : 2. 
Nombre d'éléments 2° dimension : 3. 
Nombre d'éléments 1'° dimension : 2. 
Valeur de la variable ZZ(0,0)=0 : 
27-129, 

Valeur de la variable ZZ(1,0)=10 : 
(1+32/64)*2°(132 —-129). 

Valeur de la variable ZZ(0,1)=1 : 
2°(129-— 129). 

Valeur de la variable ZZ(1,1)= 11 : 
(1+48/128)*x2°(132 — 129). 

Valeur de la variable ZZ(0,2)=2 : 
2°(130 — 129). 

Valeur de la variable ZZ(1,2)=12 : 
(1+64/128)+*27(132-129). 


35. 
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2837 à 2849 


0-0 Première variable commençant par X. 
216 Code ASCII de X : variable X%. 
1 Variable entière. 
7-0 Nombre d’octets d'occupation : 7. 
1 Nombre de dimensions : 1. 
2-0 Nombre d'éléments 1'° dimension : 2. 
0-0 Valeur de la variable X%(0) = 0. 
100-0 Valeur de la variable X%(1) = 100. 


2850 à 2870 


0-0 Première variable commençant par Y. 
217 Code ASCII de Y : variable Y$. 
2 Variable alphanumérique. 
15-0 Nombre d'octets d'occupation : 15. 
1 Nombre de dimensions : 1. 
4-0 Nombre d'éléments 1'° dimension : 4. 
1 Longueur Y$(0)=1. 
92-166 92+256*166-42588. Adresse stockage Y$(0). 
1 Longueur Y$(1)=1. 
91-166 91+256*166-42587. Adresse stockage Y$(1). 
1 Longueur Y$(2)=1. 
90-166 90+256*166-42586. Adresse stockage Y$(2). 
1 Longueur Y$(3)=1. 
89-166 89+256*166-42585. Adresse stockage Y$(3). 


DE HIMEM A FRETOP 


42619 à 42607 

89-84-82-69-87-81-82-85-79-74-78-79-66. 

Code ASCII de Ÿ,T,R, E, W, Q,R, U, O, J, N, O, BB, soit BON- 
JOURQWERTY ; c’est la variable LL$. 


en Ne 


42608 à 42597 

52-51-50-49-89-84-82-69-87-81. 

Code ASCII de 4, 3,2,1,Y,T,R,E, W, Q, soit QWERTY1234 : 
c'est la variable L$. 
42596 à 42594 

65-65-65. 

Code ASCII de À, À, A, soit AAA ; c'est la première valeur de la 
variable W$. 
42593 à 42589 

66-66-66-66-66. 

Code ASCII de B, B, B, B, B, soit BBBBB ; c’est la valeur actuelle 
de la variable W$. 
42588 à 42585 

65-66-67-68. 

Code ASCII de À, B, C, D ; ce sont les quatre variables Y$(3), Y$(2), 
Y$(1), Y$(0). 
42584 à 42571 

90-90-90-90-90-90-90-90-90-90-90-90-90-90. 


Quatorze fois le code ASCII Z ; ce sont les valeurs successives de 
la variable R$. 


Au-delà de 42571, les informations ne sont plus liées au programme 
en cours d'activité. 


La variable alphanumérique MM$ a une adresse de stockage de 
538, c'est-à-dire une adresse à l’intérieur du programme BASIC. En 
effet, l’interpréteur ne recopie pas la valeur de cette variable dans 
la zone HIMEM/FRETOP, puisqu'elle est déjà disponible dans les 
mémoires. Par contre la variable L$, au moment de l'exécution de 
l’ordre 20, a son adresse dans le programme BASIC, mais à l’exécu- 
tion de l’ordre 40 la variable est stockée dans la zone HIMEM/ 
FRETOP, puisque sa nouvelle valeur n’est plus disponible dans les 
mémoires du programme. 


_ 52 - 


Cette exploration nous montre aussi que l’interpréteur BASIC n’a 
pas effectué le nettoyage de la zone HIMEM/FRETOP ; il stocke les 
variables alphanumériques au fur et à mesure de leur arrivée. 
Lorsqu'une telle variable change de valeur, il stocke la nouvelle valeur 
à la suite des autres variables ; en effet, si la nouvelle chaîne de carac- 
tères a une longueur différente de la précédente, soit il y aurait de 
la place perdue, soit il n’y aurait pas assez de place s’il essayait de 
la remettre au même endroit. Nous avons alors l’ancienne valeur et 
la nouvelle dans la zone HIMEM/FRETOP, mais seule la nouvelle 
valeur est référencée dans la zone LOMEM/ARYTAB ; c'est le cas des 
variables W$ et R$. Au bout d’un certain temps, si la valeur de FRETOP 
rejoint la valeur de STREND l'interpréteur enlève les valeurs inutiles 
et remet les unes à la suite des autres les valeurs actuelles. On peut 
forcer l’interpréteur à effectuer ce travail en insérant l’odre FREE(O). 
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INTRODUCTION 
DE DEUX PROGRAMMES INDÉPENDANTS 


Nous venons de réaliser des programmes qui s’auto-exploraient ; 
nous allons maintenant examiner l'exploration d’un programme 
quelconque. 

La première possibilité consiste à réserver un espace suffisant sous 
le TXTTAB auquel travaillera le programme à explorer, ou au-dessus 
du HIMEM ; puis à introduire le programme d'exploration à cet 
endroit ; rétablir le TXTTAB ou le HIMEM ; introduire le programme 
à explorer ; remettre TXTTAB et HIMEM à la valeur du programme 
d'exploration et exécuter le programme d'exploration. 

La seconde possibilité consiste à introduire tout d’abord le pro- 
gramme à explorer dans les mémoires, puis à introduire le programme 
d'exploration à un autre endroit des mémoires, enfin à exécuter le 
programme d'exploration. 

Nous allons commencer par examiner cette dernière possibilité, 
qui est la plus rapide. 

Nous avons vu, au Chapitre 2, que la zone mémoire située entre 
STREND et FRETOP était un espace libre ; nous allons donc implan- 
ter le programme d'exploration à cet endroit. 

Tout d'abord, après avoir fait un RESET par CTRL+SHIFT +ESC, nous 
allons regarder les valeurs de TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM lorsqu'il n’y a pas de programme dans les mémoi- 
res de l’Amstrad (pour TXTTAB, LOMEM et HIMEM, nous examinons 
les deux séries de mémoires qui contiennent ces valeurs). 

Tapons : 


PRINT PEEK(44673)+256x*xPEEK(44674) Réponse : 367 (TXTTAB) 
PRINT PEEK(44592)+256*xPEEK(44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+256x*xPEEK(44676) Réponse : 376 (LOMEM) 
PRINT PEEK(44677)+256*xPEEK(44678) Réponse : 370 (LOMEM) 
PRINT PEEK(44679)+256x*xPEEK(44688 ) Réponse : 378 (ARYTAB) 
PRINT PEEK(44681)+256*PEEK(44682) Réponse : 370 (STREND) 
PRINT PEEK(45197)+256x*xPEEK(45198) Réponse : 42619 (FRETOP) 
PRINT PEEK(45199)+256%*xPEEK(45288) Réponse : 42619 CHIMEM) 
PRINT PEEK(45667)+256x*xPEEK(45668) Réponse : 42619 (HIMEM) 
REMARQUE 


LOMEM est situé trois mémoires au-dessus de TXTTAB ; LOMEM, 
ARYTAB et STREND ont la même valeur puisqu'il n’y a pas encore 
de variables. 
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Introduisons alors le programme suivant : 


18 CLS 

28 DATA BONJOUR , PROGRAMME 1 

38 DIM A$(2),A(18) 

40 FOR 1=1 TO 2 : READ A$(I) : NEXT I 
58 FOR I=i TO 18 : A(I)=I : NEXT 1 

68 B=i : C$=A$(1)+A8(C2) 

78 PRINT A$(C1),A$(C2) 

80 END 


AU passage, sauvegardons ce programme sous le nom de CH4-P1. 
Examinons de nouveau TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM. 


PRINT PEEK(44673)+256*PEEK(44674) Réponse : 367 (TXTTAB) 
PRINT PEEK(44592)+256*PEEK(44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+256*xPEEK(44676) Réponse : 549 (LOMEM) 
PRINT PEEK(44677)+256*PEEK( 44678) Réponse : 549 (LOMEM) 
PRINT PEEK(44679)+256%PEEK(44688) Réponse : 549 (ARYTAB) 
PRINT PEEK(44681)+256*PEEK(44682) Réponse : 549 (STREND) 
PRINT PEEK(45197)+256*PEEK(45198) Réponse : 42619 (FRETOP) 
PRINT PEEK(45199)+256*PEEK(45288) Réponse : 42619 C(CHIMEM) 
PRINT PEEK(44667)+256*PEEK(44668) Réponse : 42619 CHIMEM) 
REMARQUE 


Vous devez impérativement respecter exactement les programmes, 
y compris les espaces, pour obtenir les mêmes valeurs. 


Les valeurs de LOMEM, ARYTAB et STREND n'ont pas changé 
puisque le programme n'a pas été exécuté. 

Nous tapons RUN pour exécuter ce programme. Nous voyons 
s'afficher : 


BONJOUR PROGRAMME1 


Examinons de nouveau TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM 
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PRINT PEEK(44673)+256*PEEK(44674) Réponse : 367 (TXTTAB) 


PRINT PEEK(44592)+256x*PEEK( 44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+256*xPEEK(44676) Réponse : 572 (LOMEM) 
PRINT PEEK(44677)+256*PEEK(44678) Réponse : 572 (LOMEM) 
PRINT PEEK(44679)+256*PEEK(44686) Réponse : 5977 (ARYTAB) 
PRINT PEEK(44681)+256*PEEK(44682) Réponse : 679 (STREND) 
PRINT PEEK(45197)+256*PEEK(45198) Réponse : 426082 (FRETOP) 
PRINT PEEK(45199)+256*PEEK(452868) Réponse : 42619 CHIMEM) 
PRINT PEEK(44667)+256*PEEK( 44668) Réponse : 42619 CHIMEM) 


Nous constatons que la zone qui va de l'adresse 679 à l'adresse 
42602 est libre. Nous allons changer les valeurs de TXTTAB, LOMEM, 
ARYTAB, STREND, FRETOP, HIMEM pour introduire un deuxième 
programme sans détruire le premier ; mais pour pouvoir le faire, il 
est nécessaire qu'il n’y ait pas eu d'ordre RUN. On effectue donc 
un RESET avec CTRL+SHIFT+ESC, puis LOAD ‘‘CH4-P1’’. Tapons 
alors : 


POKE44673,0 : POKE 44674,18 Positionne TXTTAB en 2568 
POKE44675,3 : POKE 44676,18 Positionne LÜOMEM en 2563 
POKE44679,3 : POKE 44688 ,10 Positionne ARYTAB en 2563 
POKE44681,3 : POKE 44682,18 Positionne STREND en 2563 


POKE45197,8 : POKE 45198,150 Positionne FRETOP en 38480 


POKE45199,6 : POKE 45208,158 Positionne HIMEM en 38400 


REMARQUE 


Il n'est pas nécessaire, pour l'introduction d’un programme, de 
changer les valeurs des deuxièmes couples de mémoires de TXTTAB, 
LOMEM et HIMEM. 


La zone réservée aux programmes BASIC est maintenant celle qui 
va de l’adresse 2560 à l'adresse 38400. Si nous introduisons un nou- 
veau programme, il va se positionner dans cet espace mémoire, ce 
que nous allons vérifier. Tapons : 
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18 CLS 


28 DATA PROGRAMMEZ2 ,AUREUVDIR 

38 DIM A$(2) ,A(18) 

40 FOR I=i TO 2 : READ A$(I) : NEXT I 
58 FOR I=1 TO 18 : ACI)=I : NEXT 1 


68 B=2 


: C$=AS(1)+A$(2) 


78 PRINT A$C1),A$(2) 


88 END 


Sauvegardons ce programme sous le nom de CH4-P2. 


Nous tapons RUN pour exécuter ce programme et nous voyons 
s'afficher : 


PROGRAMME2 AUREVOIR 


C'est bien le second programme qui s'exécute. 


Examinons TXTTAB, 


HIMEM 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 


LOMEM, ARYTAB, STREND, FRETOP, 


PEEK(44673)+256*PEEK(44674) Réponse : 2568 (TXTTAB) 
PEEK(44592)+256%*PEEK(44593) Réponse : 2568 (TXTTAB) 
PEEK(44675)+256*PEEK(44676) Réponse : 2766 (LOMEM) 
PEEK(44677)+256*PEEK(44678) Réponse : 2766 (LOMEM) 
PEEK(44679)+256*PEEK(44688) Réponse : 2791 (ARYTAB) 
PEEK(44681)+256*PEEK(44682) Réponse : 2873 (STREND) 
PEEK(45197)+256*PEEK(45198) Réponse : 38382 (FRETOP) 
PEEK(45199)+256*PEEK(45288) Réponse : 38400 CHIMEM) 
PEEK(44667)+256*PEEK( 44668) Réponse : 38488 CHIMEM) 


Nous constatons que les deuxièmes couples de mémoires pour 
TXTTAB, LOMEM et HIMEM ont bien pris les bonnes valeurs. 

Si maintenant nous remettons TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM aux valeurs du premier programme, et cela aussi 
pour les deuxièmes couples de TXTTAB, LOMEM et HIMEM : 


POKE44673,111 : POKE 44674 ,1 TXTTAB 
POKE44592,111 : POKE 44593,1 TXTTAB 
POKE44675,68 : POKE 44676,2 LOMEM 
POKE44677,608 : POKE 44678,2 LOMEM 
POKE44679,68 : POKE 44688 ,2 ARYTAB 
POKE44681 ,68 : POKE 44682,2 STREND 


POKE30988,123 : POKE 45198,166 FRETOP 


POKE45199,123 : POKE 45208 ,166 HIMEM 
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(367=111+256#1) 

C367=111+256*#1) 
(549=37+256*2) 
(549=37+256*2) 
(31622=55+256%2) 
(31691=137+256*2) 
(42619=123+256*x166) 


(42619=123+256*166) 


et si nous faisons : 
LIST 


nous obtenons le listing du Programme 1. 
Nous pouvons maintenant faire RUN... et le Programme 1 s'exécute. 
Si nous voulons revenir au Programme 2, il suffit de repositionner 
TXTTAB, LOMEM, ARYTAB, STREND, FRETOP et HIMEM. 


POKE44673,8@ : POKE 44674,18 TXTTAB (2568=8+256*10) 
POKE44592,8 : POKE 44593,18 TXTTAB (25608=111+256*#16) 
POKE44675,286 : POKE 44676,18 LOMEM (2766=286+256#108) 
POKE44677,286 : POKE 44678,18 LOMEM (C2766=286+256*x10) 
POKE44679,231 : POKE 44688 ,18 ARYTAB (2791=231+256*#10) 
POKE44681,57 : POKE 44682,11 STREND (2873=57+256*11) 
POKE38980,238 : POKE 45198,149 FRETOP (38382=238+256#149) 


POKE45199,0 : POKE 45288,158 HIMEM (38400=0+256%*150) 


Si nous tapons : 
PRINT C$,B 
nous obtenons la réponse : 
“"’PROGRAMME2AUREVOIR 2" 


Les variables de travail du second programme sont donc toujours 
bien présentes. 


Nous avons donc le schéma suivant d'occupation de la mémoire : 
d’une part avec uniquement le programme CH4-P1, d'autre part avec 
le programme CH4-P1+CH4-P2. 
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Il s’agit bien sûr d’un cas particulier au niveau des valeurs des 
adresses. 


COEXISTENCE DE DEUX PROGRAMMES EN MÉMOIRE 
SCHÉMA D'OCCUPATION DES MÉMOIRES 


CH4-P1 CH4-P1 + CH4-P2 
HIMEM 42619 
Variables Variables 
alphanumériques alphanumériques 
CH4-P1 CH4-P1 
FRETOP 42602 
38400 HIMEM 
Variables 
alphanumériques 
CH4-P2 
38382 FRETOP 
2873 STREND 
Variables dim 
CH4-P2 
2791 ARYTAB 
Variables 
CH4-P2 
2766 LOMEM 
CH4-P2 BASIC 
2560 TXTTAB 
STREND 679 
Variables dim Variables dim 
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CH4-P1 BASIC CH4-P1T BASIC 
TXTTAB 367 


En conclusion de ce chapitre, nous venons de montrer que plu- 
sieurs programmes peuvent coexister dans les mémoires de l’ Amstrad 
et que l’on peut passer de l’un à l’autre. Pour cela, il est nécessaire 
de positionner pour une première introduction : 


TXTTAB (dont l’adresse est contenue dans les mémoires 44673 
et 44674) à la valeur de la mémoire où l’on désire que 
la première instruction BASIC soit écrite. 


LOMEM _ (dont l'adresse est contenue dans les mémoires 44675 
et 44676) à la valeur TXTTAB +3. 


ARYTAB (dont l'adresse est contenue dans les mémoires 44679 
et 44680) à la valeur TXTTAB +3. 


STREND (dont l'adresse est contenue dans les mémoires 44681 
et 44682) à la valeur TXTTAB +3. 


HIMEM__ (dont l'adresse est contenue dans les mémoires 45199 
et 45200) à la valeur désirée, valeur maximale d’'utilisa- 
tion des mémoires par ce programme. 


FRETOP (dont l’adresse est contenue dans les mémoires 45197 
et 45198) à la valeur désirée, valeur maximale d’utilisa- 
tion des mémoires par ce programme. 


Deux programmes ou plus peuvent être introduits, à condition de 
ne pas avoir effectué de RUN. 

Si l’on revient à un programme qui a déjà été exécuté, il est de 
plus nécessaire de remettre TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP et HIMEM ainsi que les deuxièmes couples de mémoires pour 
TXTTAB, LOMEM et HIMEM (soit 44592/44593 pour TXTTAB, 
44677/44678 pour LOMEM, 44667/44668 pour HIMEM) à la valeur 
qu'ils avaient à la fin de l'exécution du programme ; valeur à recher- 
cher immédiatement avant toute autre manipulation (LOMEM : 
PEEK(44675) et PEEK(44676), ARYTAB : PEEK(44679) et PEEK(44680), 
STREND : PEEK(44681) et PEEK(44682), FRETOP : PEEK(45197) et 
PEEK(45198)). 

Tout ce qui vient d’être expliqué est valable pour la première pos- 
sibilité que nous avons citée au début de ce chapitre, c’est-à-dire de 
placer un programme sous le TXTTAB ou au-dessus du HIMEM ; seul 
le schéma d'occupation des mémoires sera modifié. 


2,62. 


Ces différentes techniques seront utilisées dans la suite de cet 
ouvrage, en particulier chaque fois qu’il sera nécessaire de protéger 
des zones mémoire contre l’effacement. 
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PROGRAMME DE RECHERCHE 
D'ORDRES BASIC 


Nous allons maintenant réaliser la première partie de notre pro- 
gramme de déverminage, qui est la recherche des ordres BASIC. Pour 
cela, nous allons explorer les mémoires situées entre TXTAB et 
LOMEM (comme au Chapitre 3) en recherchant un ordre BASIC par- 
ticulier. Comme nous l’avons vu, les ordres BASIC sont représentés 
par des tokens, c’est-à-dire des codes ASCII supérieurs à 127. 

Notre programme, que nous appellerons TOKEN, va comporter les 
étapes suivantes : 


e Un menu permettant de choisir l’ordre BASIC à trouver. 


e Une exploration des mémoires entre TXTAB et LOMEM ; lorsqu'on 
trouvera un code ASCII égal à celui du token correspondant à 
l’ordre recherché, on stockera l'étiquette de l’ordre. Mais pour cela, 
nous devons être sûrs qu'il s’agit du code ASCII d’un token ; par 
conséquent, nous devons éliminer les octets correspondant aux 
adresses, aux constantes et aux fins de variables. 


e Lorsque tout le programme aura été exploré, nous éditerons le résul- 
tat soit à l’écran, soit sur une imprimante. 


Pour des raisons d’encombrement mémoire, afin de ne pas avoir 
une taille prohibitive pour ce programme, nous avons limité le menu 
à neuf ordres BASIC et le nombre d'étiquettes à 100. 

D'autre part, ce programme est la première partie de notre pro- 
gramme de déverminage ; nous allons lui donner des étiquettes com- 
prises entre 10000 et 20000, ce qui laissera la place aux étiquettes 
des instructions des autres programmes. 


Pour pouvoir explorer un programme existant, déjà chargé en 
mémoire aux valeurs normales de TXTAB et de HIMEM, nous implan- 
terons notre programme d'exploration à un emplacement non occupé 
par le programme à explorer. Nous le mettrons dans la zone au-dessus 
de l’adresse 20480 (ce qui laisse environ 20 000 mémoires pour le 
programme testé et ses variables numériques). Mais cette opération 
ne sera à faire qu’au moment de l’utilisation, nous la verrons donc 
au Chapitre 7. 


166 


Réalisons maintenant les trois parties du programme TOKEN. Le 
LOMEM de ce programme est 6319. 


MENU 


Le menu sera implanté entre les étiquettes 9994 et 11000 ; en voici 
le listing, que nous allons expliquer. 


9994 REM PROGRAMME DE RECHERCHE DE TOKEN 
9996 REM TXTTAB À 1i1+ 1x256= 367 
9998 REM LOMEM À 175+ 24#256= 6319 


18888 TXTTAB=368 

18819 DIM A(188) ,A$(108) 

18828 DATA CLS,DATA,DIM,ELSE,FOR,GOTO,LOCATE ,PRINT ,READ 
18838 FOR I=zi TO 9 : READ A$(I) : NEXT I 

18848 REM ..... CHOIX DE L’ORDRE RECHERCHE ..... 

18858 FOR I=i TO 188 : ACI)=0 : NEXT I : CLS 

18868 LOCATE 7,1 : PRINT “CHOIX DU TOKEN CHERCHE :"* 


18878 LOCATE 16,4 : PRINT "CLS 1” 
18888 LOCATE 18,6 : PRINT “DATA 2" 
18098 LOCATE 18,8 : PRINT “DIM 3* 
18188 LOCATE 18,18 : PRINT "ELSE 4" 
18118 LOCATE 18,12 : PRINT “FOR 5" 
18128 LOCATE 18,14 : PRINT “GOTO é" 
18138 LOCATE 18,16 : PRINT "LOCATE 7" 
18148 LOCATE 18,18 : PRINT “PRINT 8" 
18158 LOCATE 18,28 : PRINT “READ ?* 


18168 LOCATE 1,23 : PRINT “TAPER LE NUMERO DU TOKEN CHERCHE 11/9)" 
10178 R$=INKEYS 

18188 R$S=INKEY$S : IF R$="" THEN 10180 ELSE R=ASC(R#) 

18198 IF R<(49 OR R>57 THEN 18188 ELSE LOCATE 48,23 : PRINT R$ 
10208 TK=8 

19218 TK=-138#(R=49)-140#(R=50)-147#(R=51)-151X(R=52) -158*x(R=53) 
19220 TK=TK-168#(R=54)-169#(R=55)-191#(R=56)-195#(R=57) 

10238 RR=R-48 


9994 à 9999 


Quelques REM pour rappeler le nom du programme et ses adres- 
ses d'implantation. 


10000 


Nous mettons la valeur du TXTTAB +1 du programme à explorer 
dans la variable de nom TXTTAB, soit 368 dans le cas normal. 

Si vous voulez explorer des programmes implantés à un autre 
TXTTAB, il suffit de changer cette valeur. 


10010 


La variable dimensionnée A sera utilisée pour stocker les étiquettes 
des instructions où se trouve l’ordre BASIC recherché. Nous l'avons 
dimensionnée pour 100 étiquettes, c’est habituellement suffisant pour 
notre utilisation. 


2,67 = 


La variable A$ est destinée à recevoir le nom de l’ordre que l’on 
recherchera. C'est elle qui nous permettra d'indiquer en tête du résul- 
tat final le nom de l’ordre que l’on a cherché. 


10020 


Ces DATA servent à remplir la variable A$. 


10030 
Boucle FOR/NEXT en | pour introduire les DATA dans la variable Af$. 


10040 


Un REM pour rappeler le but du morceau de programme qui va 
suivre. 


10050 


Initialise à O les 100 variables A(1) de manière à simplifier ultérieu- 
rement l'affichage des résultats successifs. 


10060 à 10160 


Les ordres LOCATE et PRINT servent à réaliser l’affichage à l'écran 
du menu et de ses explications. 


10170 


Cette instruction sert à éliminer la lecture de la dernière touche 
enfoncée. 


10180 à 10190 


Ces instructions permettent la lecture du clavier en mettant le résul- 
tat dans la variable R par R = ASC(RS) ; la fonction ASC ne pouvant 
pas travailler sur R$ égal rien du tout, on doit éliminer le cas R$=‘"". 

Puis on teste la validité de l'information transmise par 
IFR<49OR R>57 THEN 10180. En effet le 1 a comme code 
ASCII : 49, le 2 : 50, et ainsi de suite jusqu’à 9 code 57 (voir Annexe 
À) ; la condition logique sera donc remplie pour les réponses 1, 2, 
9 et le programme continuera alors à l'instruction 10200 ; elle ne sera 
pas remplie pour toute autre touche ; dans ce cas, il y aura retour 
au début de l'instruction 10180. 
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Pour finir, on affiche le caractère correspondant à la touche enfon- 
cée, si la réponse est acceptée. 


10200 à 10220 


Ces instructions calculent la valeur du token, variable TK, corres- 
pondant au choix effectué à l’aide d’une équation logique. 

En effet, l'expression (R=49) vaut O si R est différent de 49 et elle 
vaut —1 si R=49 (nous avons bien dit : moins un). Donc pour R=49 
l'expression —138*(R=49) vaut (— 138% —1)= +138 (et zéro pour les 
autres valeurs de R), ce qui est bien la valeur du token de FOR qui 
correspond au choix 1, soit R=49. Le même raisonnement montre 
que, dans le cas où R=49, tous les autres termes de l’équation sont 
nuls, et l’on a bien la valeur 138 pour la variable TK. 

Pour R= 50 choix 2, c’est le deuxième terme qui n’est pas nul; il 
prend la valeur (— 140*—1)=140, valeur du token de NEXT, et ainsi 
de suite pour les autres choix. 


10230 


Compte tenu de la remarque faite pour l'instruction 10180, la varia- 
ble RR=R-48 prend la valeur du choix effectué (c’est-à-dire 1, 2, 
3... ou 9), ce qui nous permettra de retrouver la variable indicée A$(R) 
qui correspond bien au choix effectué. En effet, si l’on a enfoncé la 
touche correspondant à 2, R aura la valeur du code ASCII de la tou- 
che 2, soit 50 (voir Annexe A) et RR=R-48=50-48=72, 


EXPLORATION DES MÉMOIRES 


Nous allons implanter l'exploration des mémoires entre les 
étiquettes 10999 et 12000 ; en voici le listing : 


19999 REM ....ssssseneneneeneess memes me ns nsnsenenene 
11000 REM EXPLORAT I ON 
11081 REM ..... sos ssresecsnnem eme en enem en eeses sense 
11818 CLS ï 

11828 LOCATE 8,18:PRINT "ETIQUETTE DE L’INSTRUCTION" 

11839 LOCATE 18,12:PRINT “EN COURS D’EXPLORATION"* 

11848 T=TXTTAB : 1=8 : AD=TXTTAB 

11944 REM .... esse ns eme msn 
11045 REM ADRESSE DE L’INSTRUCTION SUIVANTE 
11946 REM .... sensor eme e een 
11958 AD=PEEK(T)+256*PEEK(T +1) +AD 

11854 REM soso smesnsese eee essences 
11055 REM ETIQUETTE DE L’INSTRUCTION 
11956 REM .... soso eme neneese 
11969 ET=PEEK(T+2)+256*PEEK(T+3) 

11878 LOCATE 18,16 : PRINT ET 

118088 T=T+3 

11998 T=T+1 : X=PEEK(T) 
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118974 
11095 
11076 
11100 
11104 
11105 
11106 
11110 
11120 
11124 
11125 
11126 
11130 
11140 
11144 
11145 
iiidé 
11150 
11168 
11178 
11174 
11175 
11176 
111808 
11198 
11194 
11195 
11196 
11208 
11204 
11205 
11206 
11218 
11228 


REM sus cnrs ner seen 


REM ss sense semences … 
REM ELIMINATION DE L’ / ALPHANUMERI QUE 
REM scores nmenenensmssssseseesses snsonersesosoossrssuss 
IF X=34 THEN GOTO 11128 ELSE GOTO 11138 
T=T+1 : IF PEEK(T)<>34 THEN GOTO 11128 


REM ss sen rennes esse en enenessne sn neenenneneeess 
REM ELIMINATION DES VARIABLES 
REM ss eee sense sense us. 


IF X<)>13 AND X<>2 AND X<>23 THEN GOTO 11158 ELSE TaT+2 

T=T+1 : IF PEEK(T)<129 THEN 11140 ELSE T=T+1 : X=PEEK(T) 

REM ...., snsnosneseesesssss snnsnsssssse snnonesssse su... 

REM ELIMINATION DES CONSTANTES 
REM uso. conso osssrosesssossossses ons .. 
IF X=25 THEN T=T+1 : GOTO 11890 

IF X>225 AND X<31 THEN T=T+2 : GOTO 11898 

IF X=31 THEN T=T+5 : GOTO 11890 

REM sus css sonores sesnessesos ss... .... 
REM TEST DE FIN DE PROGRAMME 
REM nsc enense snsnsrssssssssss 
D=PEEK(T): E=PEEK(T+1) : F= PEEKCT+2) 

IF D=8 AND E=8 AND F=8 THEN GOTO 12818 


REM sous soon srsesee ss. cssososvouues 

REM TEST DE FIN 0’ INSTRUCTION 
REM .,,..0. sms sorouroes ss soon ss. sos. 
IF X=0 THEN T=T+1 : GOTO 11858 

REM ...... sssssorosess cssssossoces nos cnssonssosesss 
REM TOKEN/STOCKAGE ETIQUETTE 
REM soso uno soso sure ssssrosere 
IF X=TK THEN. Izl+1 : ACI)=ET 

GOTO 11890 


10999 à 11001 


Des REM pour rappeler le but du module de programme qui va 


suivre. 


11010 


CLS nettoyage de l'écran. 
11020 et 11030 


L'exploration durant un certain temps, il est nécessaire de mon- 
trer à l’opérateur que le programme fonctionne correctement ; pour 
cela, on lui présente à l'écran, à chaque instant, l’étiquette en cours 
d'exploration. Ces deux ordres inscrivent à l'écran la signification des 


chiffres 
11040 


qui vont apparaître. 


T va être la variable correspondant à l'adresse de la mémoire en 
cours d'exploration ; on l’initialise donc à la valeur de la première 


adresse du programme à explorer, soit la valeur normale du 
TXTTAB +1. 
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| va être la variable qui va compter le nombre d'étiquettes où se 
trouve l’ordre BASIC recherché ; on l’initialise à O. 

AD sera la variable contenant l’adresse du début de l'instruction 
suivante, on l’initialise donc à TXTTAB+1. 


11044 et 11050 


Nous avons vu (voir Chapitre 3) qu’une instruction commençait 
par la longueur de l'instruction dans les mémoires ; nous calculons 
l'adresse de l'instruction suivante, cette adresse nous servira 
ultérieurement. 


11054 et 11060 


Les deux mémoires suivantes correspondent au numéro d’étiquette ; 
nous calculons donc la valeur de l'étiquette et nous la stockons dans 
la variable ET. 


11070 


Nous l'inscrivons alors à l'écran pour informer l'opérateur de l’évo- 
lution du programme. 


11080 et 11090 


Nous incrémentons la variable T (adresse de la mémoire à explo- 
rer) de trois unités, puis d’une unité, puisque nous venons d’exploi- 
ter les quatre premières mémoires ; cette incrémentation est faite en 
deux fois, de manière à pouvoir réutiliser l’incrémentation d’une unité 
au cours de la boucle d’exploration d’une instruction. 

Ensuite nous lisons la valeur contenue par la mémoire d'adresse 
T, valeur que nous mettons dans la variable X (X= PEEK(T)). 


11094 et 11100 


À partir du moment où nous rencontrons un REM, soit le token 
de valeur 197, le reste de l'instruction ne peut pas contenir d'ordre 
BASIC ; nous effectuons dans ce cas un saut à l’étiquette n° 11050 
après avoir donné à notre variable T la valeur de l’adresse de début 
de l'instruction suivante pour continuer l’exploration. 
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11104 et 11120 


Lorsque nous rencontrons le code ASCII 34, soit ‘’, nous savons 
que les codes ASCII qui vont suivre correspondront à du texte en 
alphanumérique. Nous pouvons donc passer rapidement sur les 
mémoires suivantes jusqu’à ce que nous rencontrions de nouveau 
le code ASCII 34 qui signale la fin du texte ; ces ordres permettent 
d'accélérer le programme mais ne sont pas indispensables à notre 
exploration actuelle (ils le seront par contre en recherche des 
variables). 


11124 à 11140 


Nous avons vu au Chapitre 3 que le début d’une variable était 
signalé par un octet égal à 13, 2 ou 3 ; si nous rencontrons le début 
d’une variable, nous éliminons les deux octets qui correspondent à 
son adresse de stockage (qui peuvent avoir des valeurs supérieures 
à 128), puis tous les octets suivants jusqu’à ce que l’on rencontre 
l’octet supérieur à 128 correspondant au dernier caractère de la varia- 
ble. Le but de cette opération est d'éliminer tous les octets qui peu- 
vent être supérieurs à 128 et qui ne sont pas des tokens. Nous conti- 
nuons ce travail avec les constantes. 


11144 à 11170 
Nous avons vu au Chapitre 3 que le début d’une constante est 
signalé par : 
°_25 pour une variable stockée sur un octet ; cet octet peut être supé- 
rieur à 128, nous le sautons donc. 


e 26, 27, 28, 29 ou 30 pour une variable stockée sur deux octets ; 
ces octets peuvent être supérieurs à 128, nous les sautons. 


° 31 pour une variable stockée sur cinq octets qui peuvent être supé- 
rieurs à 128, nous les sautons. 


e Les autres valeurs possibles pour les constantes sont inférieures à 
128 ; elles ne gêneront pas le déroulement du programme. 


11174 à 11190 


Nous avons vu au Chapitre 3 que la fin d’un programme BASIC 
se reconnaissait au fait que quatre mémoires successives contiennent 
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la valeur 0 : compte tenu de nos autres tests, il suffit d'en avoir trois 
successives nulles, c'est ce que nous testons ici. 

Si c’est la fin du programme, nous allons en 12010 où se trouve 
le programme d'édition du résultat de notre recherche. 


11194 et 11200 


Nous testons de même si nous sommes à la fin d’une instruction 
(identifiée par un O). 

Dans le cas de fin d'instruction, nous allons en 11050 pour l’explo- 
ration de l'instruction suivante. 


11204 et 11210 

Nous finissons par le test sur la valeur du token recherché ; si nous 
en avons trouvé un, nous stockons la valeur de l'étiquette dans A(1), 
puis nous incrémentons | d’une unité. 


11220 


Et nous retournons à l'instruction 11090 qui va incrémenter T d’une 
unité et continuer l'exploration de l'instruction. 


PRÉSENTATION DES RÉSULTATS 


Nous allons implanter la présentation des résultats entre les 
étiquettes 11999 et 20000 ; en voici le listing : 


11999 REM soso omoosmo soso none essences 
12060 REM EDITION DES RESULTATS 
12001 REM ........... sense nsnssssonsrouse usure. sunsesssosssese 
12818 CLS 

12026 LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 

12036 LOCATE 5,18 : PRINT "A L'ECRAN ..........sssuse E" 

12048 LOCATE 5,14 : PRINT "A L’'IMPRIMANTE + ECRAN .... 1" 


12050 LOCATE 5,28 : PRINT "TAPER VOTRE CHOIX LE/11" 

12868 R$=INKEYS$ 

12078 R$=INKEYS : IF R$="" THEN 12878 ELSE R=ASC(R$) 

12080 IF R=69 THEN 13810 

12890 IF R=73 THEN 14618@ 

12168 GOTO 128708 

12799 REM sine ses sie sie cel ose eo sa dates née are 810 eroièle one 01e ei ouais aleiad/e e dia draÿa 
13006 REM SORTIE ECRAN 
13001 REM ......sssssessessossessesseuesse sons ssesesenes esse 
13816 CLS 

13828 LOCATE 3,1 : PRINT "ETIQUETTE DES INSTRUCTIONS CONTENANT " 

138038 LOCATE 17,3 : PRINT A$CRR) 

13046 IF I=@ THEN LOCATE 17,16 : PRINT "AUCUN" : GOTO 136888 
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13850 
13868 
130870 
13080 
13890 
13100 
13999 
14000 
14881 
14810 
14020 
14830 
14840 
14056 
14860 
14870 
14088 
14890 
1416808 
14110 
14999 
15008 
15881 
15010 
15828 
15030 
15840 
15950 
15868 
15070 
15080 
15090 
15099 


12000 


FOR J=1 TO I STEP 4 

PRINT USING "HH#HHHHH" ;ACJ) ;ACJ+1) ;ACJ+2) ;ACJ+3) 

NEXT J 

R$=INKEYS 

R$S=INKEYS : IF R$="" THEN 13698 

GOTO 15818 

REM soso msmesemeseses cnnsnsnoususe snnssssnese onsssrsrse .. 
REM SORTIE ECRAN + IMPRIMANTE 


CLS 

LOCATE 8,8 : PRINT “ALLUMER L’ IMPRIMANTE" 

LOCATE 7,12 : PRINT "PUIS ENFONCER <RETURN>" 

LOCATE 17,16 : INPUT 2$ 

PRINT #8,"ETIQUETTE DES INSTRUCTIONS CONTENANT * 

PRINT #8,:PRINT #8,A$CRR)D:PRINT #8,:PRINT #8, 

IF 1=0 THEN PRINT #8," —-- AUCUN ---" : GOTO 13818 

FOR J=1 TO I STEP 4 

PRINT #8,A(J) ,ACJ+1) ,A(J+2) ,ACJ+3) 

NEXT J 

GOTO 13010 

TE 
REM QUITTER OÙ RECOMMENCER 
REM ss nono souoses sunsssssse sons nsseneee . 
CLS 

LOCATE 8,6 : PRINT “DESIREZ-VOUS EXPLORER" 

LOCATE 11,19 : PRINT "UN AUTRE TOKEN" 

LOCATE 12,15 : PRINT “COUI/NON]I :* 

R$=INKEYS 

R$S=INKEYS : IF R$="" THEN 15068 ELSE R=ASC(R#$) 

1F R=79 THEN RUN 

IF R=78 THEN END 

GOTO 15848 

REM ....... sun DRE E sonsosorosse uns 


Un REM pour rappeler le but du morceau de programme qui va 


suivre. 


12010 


Nettoyage de l'écran. 


12020 à 12050 


Réalisation du menu permettant de choisir le type d'édition : écran 
ou imprimante + écran. 


12060 à 12070 


interrogation du clavier comme pour le module précédent. 


12080 


Si la réponse est E code ASCII 69, on se branche en 13010 pour 
l'édition à l'écran. 


LOTAE 


12090 

Si la réponse est 1 code ASCII 73, on se branche en 14010 pour 
l'édition sur l'imprimante. 
12100 

Si l’on arrive à cette instruction, c’est qu’on n’a obtenu aucune des 
réponses attendues ; on retourne donc à l'interrogation du clavier. 
13000 


Un REM pour rappeler le but du programme qui va suivre. 


13010 
Nettoyage de l'écran. 


13020 
Affichage du titre. 


13030 


Affichage de l’ordre qu’on vient de rechercher à l’aide de la varia- 
ble A$. 


13040 


Si cet ordre n'existe pas dans le programme (soit 1=0), on affiche 
le message ‘AUCUN’. 


13050 à 13070 


Boucle en J pour afficher les étiquettes trouvées ; on en affiche qua- 
tre par ligne grâce à STEP 4 ; la valeur finale de la boucle est |, qui 
est le nombre d'étiquettes trouvées ; on utilise un PRINT USING pour 
cadrer les nombres. En utilisant cette méthode, si le nombre d’éti- 
quettes affichées n’est pas un multiple de 4, nous trouverons des 0 
sur la dernière ligne. L’élimination de ces 0 compliquerait inutilement 
le programme, car ils ne gênent pas l'exploitation du résultat. 


13080 à 13100 


Attente qu’une touche soit enfoncée pour continuer le programme 
en 15010. Cela permet la lecture des résultats après l'affichage. 


A7 


14000 


Un REM pour rappeler le but du programme qui va suivre. 


14010 


Nettoyage de l'écran. 


14020 à 14030 


Message pour rappeler qu'il ne faut pas oublier d'allumer 
l'imprimante. 


14040 


L'ordre INPUT Z$ arrête l'exécution jusqu’à ce que l’on ait enfoncé 
la touche RETURN. 


14050 et 14060 


Les ordres PRINT #8, envoient le titre sur l'imprimante, puis le nom 
de l’ordre qui a été recherché (variable A$). 


14070 


Message spécial pour le cas où 1=0 ; pas d'instruction contenant 
l’ordre, puis branchement en 13010 pour éditer à l'écran. 


14080 à 14100 


Boucle en } identique à celle rencontrée aux instructions 
13050/13070 ; mêmes remarques. 


14110 


On part en 13010 pour compléter par une édition à l'écran. 


15010 


Nettoyage de l'écran. 


15020 à 15040 


Menu pour la suite des festivités : on recommence avec O (oui), 
on arrête avec N (non). 
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15050 à 15060 


Interrogation du clavier. 


15070 


Si la réponse est O code ASCII 79, on repart au début en 10050 
pour choisir un ordre. 


15080 


Si la réponse est N code ASCII 78, on termine le programme. 


15090 


Si la réponse est différente de O ou N, on réinterroge le clavier 
en allant en 15030. 


Nous introduisons ce programme au TXTTAB habituel, nous le met- 
trons à l'endroit adéquat ultérieurement. 

Exécution par RUN ; auto-exploration du programme, ce qui vous 
permet de vérifier son bon fonctionnement. 

Quant ce premier programme fonctionne, vous êtes prêts à passer 
au Chapitre 6. Vous devez cependant vérifier que le LOMEM est bien 
positionné. Si vous n'avez pas la même valeur que nous, retirez ou 
ajoutez des espaces dans les ordres pour obtenir un LOMEM de 6319, 
cela vous évitera des complications quand nous serons arrivés au 
Chapitre 7. 
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PROGRAMME DE RECHERCHE 
DE VARIABLES 


Le programme, que nous appellerons VARIABLE, va comporter les 
étapes suivantes comme pour le programme de recherche d'ordres 
BASIC : 


1. Un menu qui permettra de choisir le type de variables à chercher. 
Selon le choix effectué (réponse 1, 2, 3, 4, 5 ou 6), le programme 
s'orientera vers : 


e le module 22000 pour traiter les variables entières ; 

e le module 23000 pour traiter les variables réelles ; 

e le module 24000 pour traiter les variables alphanumériques ; 

e le module 25000 qui traitera les variables dimensionnées entières ; 
e le module 26000 qui traitera les variables dimensionnées réelles ; 


e le module 27000 qui traitera les variables dimensionnées alpha- 
numériques. 


Ces six programmes de traitement feront appel à un ensemble de 
programmes d'exploration, sensiblement analogues à ceux que nous 
venons de réaliser au Chapitre 5, et qui seront implantés sous forme 
de sous-programmes entre les étiquettes 21000 et 21999. 


2. Un programme d'édition des résultats qui sera géré par les 
modules : 


28000 Menu qui donne le choix entre l'écran ou l'écran et l’impri- 
mante comme périphérique de sortie des résultats. 

29000 Pour la sortie ECRAN. 

30000 Pour la sortie ECRAN + IMPRIMANTE. 


Nous allons maintenant donner le listing des différentes parties de 
ce programme et les explications correspondantes. 





19994 REM PROGRAMME DE RECHERCHE DE VARIABLES 
179996 REM TXTTAB=111+ 1x256= 367 
19998 REM LOMEM=140+ 36*x256= 9356 


26068 TXTTAB=368 
20018 DIM B#$C25):FOR 1=1 TO 25 : B$CI)="" : NEXT 1 
20828 CLS 

28838 LOCATE 8,1 : PRINT "CHOIX DU TYPE DE VARIABLE" 
20848 LOCATE 5,6 : PRINT "ENTIERE ................essse 
28858 LOCATE 5,8 : PRINT "REELLE .......... 
26868 LOCÂTE 5,18 : PRINT "ALPHANUMERIQUE 
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28878 LOCATE 5,12: PRINT "ENTIERE DIMENSIONNE .....,..., a" 

29888 LOCATE 5,14 : PRINT "RELLE DIMENSIONNE ........... 5" 
26898 LOCATE 5,16 : PRINT "ALPHANUMERIQUE DIMENSIONNE .. 6" 
20168 LOCATE 1,29 : PRINT "TAPER LE NUMERO DE VOTRE CHOIX [1/61" 
28118 R$=INKEYS 

26128 R$#=INKEY$ : IF R$="" THEN 20126 ELSE R=ASC(R#) 

28130 IF R<49 OR R>54 THEN 28128 ELSE LOCATE 48,28 : PRINT R$ 
28148 T=TXTTAB : AD=TXTTAB : 1=8 

28150 Y=R-48 : ON Y GOTO 22818,23018,24816,25010,26818,27818 


19994 à 19998 


REM rappelant le nom et les caractéristiques du programme. 


REMARQUE 

Le LOMEM du présent programme n'est bien sûr connu qu'au terme 
de son introduction totale. 
20000 


Nous mettons la valeur du TXTTAB+1 du programme à explorer 
dans la variable TXTTAB, soit 368 dans le cas normal. 

Si vous voulez explorer des programmes implantés à un autre 
TXTTAB, il suffit de changer cette valeur. 
20010 


La variable B$(1) contiendra le nom des variables successives, d’un 
type donné, que nous allons trouver dans la recherche. Nous la dimen- 
sionnons à 25 ; si vos programmes ont plus de variables, vous pou- 
vez prendre un dimensionnement plus grand. Nous commençons par 
une mise à ‘’rien du tout’’ de cette variable. 

20020 


Nettoyage de l'écran. 


20030 à 20100 


Affichage du menu et du mode d'emploi à l’aide d'ordres LOCATE 
et PRINT. 


20110 à 20130 


Lecture du clavier ; R contient la valeur du code ASCII envoyé par 
le clavier. Nous testons ensuite la valeur de R ; R doit être compris 
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entre 49 (code ASCII de 1) et 54 (code ASCII de 6) pour que le choix 
soit compris entre 1 et 6. Si ce n’est pas le cas, nous recommençons 
la lecture du clavier par THEN 20120 (la procédure de lecture est 
la même que pour le programme TOKEN. 


20140 


La variable T donnera le numéro de la mémoire à explorer ; nous 
l'initialisons à la valeur de TXTTAB première mémoire du programme. 
AD sera la variable contenant l'adresse du début de l'instruction sui- 
vante ; on l’initialise donc à TXTTAB +1. La variable | servira à comp- 
tabiliser le nombre de variables trouvées dans la recherche :; ce sera 
aussi l'indice du B$, nous l’initialisons à zéro. 


20150 


La variable Y =R—48 prend la valeur 1 lorsque la réponse a été ‘‘1”, 
2 pour la réponse ‘’2”’, et ainsi de suite ; elle est utilisée pour l’aiguil- 
lage qui permet d'envoyer sur le programme de recherche adéquat. 





SOUS-PROGRAMMES 


Premier sous-programme 


Ce sous-programme sert à explorer les mémoires successives et à 
faire un premier tri dans les codes ASCII trouvés dans les mémoires. 


28999 
21808 
21881 
21108 
21118 
21119 
21128 


CLS : LOCATE 8, 18 : PRINT "ETIQUETTE DE L’ INSTRUCTION" 
LOCATE 18,12 : PRINT “EN COURS D’EXPLORATI ON" 

REM ssscosssssessossosaco ose essensesssusece 

REM 


21121 
21130 
21135 
21139 
21140 
21141 
21150 
21169 
21178 
21171 
211808 
21190 
21288 
21218 
21219 
21228 
21221 


REM ..... ….... 
D=PEEK(CT-1) : ESPEEKCT) : 
REM . 
REM 
REM presence ess as 
REM ....00 
REM 
REM . 
ET=PEEK(T+2)+2S6XPEEKÇCT+3) 
LOCATE 18,16 : PRINT ET 
T=T+3 
T=T+1 : 
REM 
REM 
REM 


X=PEEK(T) 


F=PEEKCT+1) 
IF D=6 AND E=8 AND F=8 THEN Fl=-1 : 


°TEST DE FIN. DE PROGRAMME 


RETURN 


ADRESSE DE L’ INSTRUCTION SUIVANTE 


ETIQUETTE DE L’ INSTRUCTION 


21238 IF X=197 THEN T=AD : GOTO 21138 


21239 REM ..... cnrs sonner nsnsonenssss sms srsse ss. 
21248 REM "ELIMINATION LF ALPHANUMER 1 QUE 
21241 REM .....s.ssesssosssmessesse cnssssrossseues ensnnnsssose ss. 


21250 IF X=34 THEN 21260 ELSE 21290 

21268 T=T+1 : IF PEEK(T)<>34 THEN 21268 

21279 REM soso sense eme meems msn euneuse 
21286 REM ELIMINATION DES DATA 
21281 REM ss neneneneses esse esse nemenenenennees 
21298 IF X=148 THEN 21366 ELSE 21348 

21308 T=T+1 : X=PEEK(T) 

21316 IF X=0 THEN 21348 

21328 IF X=1 THEN 21218 ELSE 21380 


21329 REM ........... PR EE EEE EE EE EE EEE CEE 
21330 REM ELIMINATION DES CONSTANTES 
21331 REM ........sssssssessese RE EEE EEE EEE EEE EEE 
21348 T=T-(X>13 AND x<24)- 2%(X225)— —3#(X>25 AND X<31)2-6x(X=31) : X=PEEKCT) 
21349 REM ...... sonsusrsenesese sono nesenssnnseses cnrs 
21350 REM ELIMINATION DES TOKENS DOUBLES 
21351 REM ....... soso nes cnrs sus 
21360 IF X=255 THEN TST+2 : XSPEEKCT). 

21369 REM .. sms onssmemeneneee esse esse esse sem enenenenenenese 
21370 REM TEST DE FIN D’ INSTRUCTION 
21371 REM ........ esse sonosssronessesseosenensre , 


21380 IF X=@ THEN T=T+1 : GOTO 21130 
21398 FL=Q : RETURN 


21100 à 21110 

Nettoyage de l'écran et affichage du message ‘ETIQUETTE DE 
L'INSTRUCTION EN COURS D'’EXPLORATION. 
21130 à 21135 


Nous commençons par le test de fin de programme que nous effec- 
tuons sur trois mémoires comme pour le programme TOKEN. De plus, 
dans le cas d’une fin de programme, nous positionnons le drapeau 
FL à la valeur —1, et nous sortons du sous-programme. 


21150 


Les deux premières adresses (T) et (T+1 ) contiennent la longueur 
de l'instruction et nous permettent de calculer l’adresse de l’instruc- 
tion suivante que nous mettons dans la variable AD. 


21180 


Les deux adresses suivantes (T +2) et (T +3) contiennent l'étiquette 
de l'instruction qui va être analysée ; nous la calculons, variable ET. 


21190 


La valeur de l’étiquette en cours d'exploration est affichée en per- 
manence. Cet affichage permet de suivre le déroulement du pro- 
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gramme et de montrer à l'opérateur que tout se passe normalement 
car, comme vous pourrez le constater, l'exécution est relativement 
lente (c'est l’un des principaux inconvénients d'un langage évolué 
comme le BASIC). 


21200 et 21210 


Nous incrémentons la variable T une première fois en 21200 de 
trois unités, puis une seconde fois d’une unité en 21210 pour sauter 
les quatre premières mémoires que nous venons d'utiliser. L'incré- 
mentation est effectuée en deux fois pour pouvoir réutiliser la seconde 
dans la boucle d'exploration. Le code ASCII trouvé dans la mémoire 
d'adresse T est stocké dans la variable X. 


21230 


Lorsque l’on trouve un REM, soit le token 197, tout ce qui suit dans 
l'instruction ne peut être qu’une remarque dans le programme ; on 
ne peut donc y rencontrer de variables. Nous passons alors à l’ins- 
truction suivante, ce qui est obtenu en posant T = AD et en effectuant 
le branchement à l'étiquette 21130. 


21250 et 21260 


Lorsque, dans une instruction, nous rencontrons le code ASCII 34, 
soit ””, il n’est pas nécessaire d’analyser ce qui suit jusqu’à ce que 
l’on en rencontre de nouveau un, car ‘’ce que l’on trouve entre deux ”’ 
correspond à du texte. 


21250 à 21280 


Lorsque nous rencontrons un ordre DATA, nous pouvons aussi sau- 
ter ce qui suit jusqu’à ce que l’on rencontre soit le code ASCII zéro 
(fin d'instruction), soit le code ASCII 1 (‘‘:’’). Dans le cas de zéro, 
nous allons en 21340 continuer et arriver au branchement de fin d’ins- 
truction en 21380. Dans le cas de 1, nous continuons l’exploration 
en effectuant un branchement en 21200 qui incrémente la variable T. 


21340 


Cette équation logique nous permet de sauter tous les octets con- 
tenant la valeur des constantes, valeurs pour lesquelles il pourrait y 
avoir confusion avec le début d’une variable. Par exemple, pour X 
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compris entre 13 et 24, la constante occupe un octet ; l'expression 
logique (X > 13 AND X < 24) vaut alors —1 et —(X > 13 AND X < 24) 
vaut +1, valeur que nous ajoutons à la variable T. De même pour 
les autres cas. 


21360 


Le problème est le même pour la deuxième valeur d'un token dou- 
ble ; donc si nous rencontrons la valeur 255, c'est qu’il s’agit du début 
d'un token double, nous sautons l’octet suivant. 


21380 


Dans le cas d’une fin d'instruction, code ASCII zéro, nous incré- 
mentons T et nous allons en 21130 explorer l'instruction suivante. 


21390 


Si nous arrivons à cet ordre, c’est que le contenu de la mémoire 
n'est ni un REM, ni de l’alphanumérique, ni une constante, ni un token 
double ; dans ce cas, nous sortons du sous-programme en position- 
nant le drapeau FL à O pour le signaler. 


En conclusion, lorsque ce sous-programme est appelé, on en revient 
lorsque trois zéros successifs ont été rencontrés, et dans ce cas on 
positionne la variable FL à —1 pour indiquer que l'exploration est 
terminée ; ou lorsque la mémoire explorée n’est ni un REM, ni de 
l’alphanumérique, ni un DATA, ni une fin d'ordre, et dans ce cas 
la variable FL est positionnée à zéro. 


Deuxième sous-programme 


Ce sous-programme sert à stocker les variables trouvées et à ne 
stocker qu’une fois les variables de même nom. 


21399 REM . sonores sense ss 
21408 REM STOCKAGE DES VARIABLES 
21481 REM ....... sors eme nsnsnsssesenememseneneeneeenees 
21418 I=1+1 : B$(I1)=VAS$ 

21428 FOR J=8 TO I-1 : I=I1+(VA$=B#(CJ)) : NEXT J 

21438 VAS="" : RETURN 


21410 


1+ 1 est la valeur du rang de la variable trouvée ; celle-ci est actuel- 
lement dans la variable VAS, on la transfère dans B$(1) après avoir 
fait 1=1+1. 
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21420 


On teste si cette variable n’a pas été déjà trouvée en la comparant 
à tous les B$(J) précédents. Si elle a déjà été trouvée, on diminue 
alors | d’une unité et elle est oubliée. En effet, l'équation logique 
(VA$=B$(J)) vaut —1 si VA$=B$(J), et zéro dans tous les autres cas, 
donc | n’est diminué d’une unité que si l’on rencontre un VA$ =B$(J). 


21430 


Une fois ce travail terminé, on vide VA$ pour le rendre disponible 
pour la prochaine variable. 


Troisième sous-programme 


Lorsque l’on a trouvé le début d’une variable, ce sous-programme 
sert à effectuer la concaténation des lettres ou chiffres qui compo- 
sent cette variable. 


ATAPT REM mucsiscereonassbinouts eus si nee vie ne caen eee den ÉRNeEN 
21500 REM CONCATENATION DES VARIABLES 
LISOT REM sus sous on ven eve 06 60e 0 ua nn 6 oo 868 à een eee 0e ee een 9 sn es 0 66 QT à 
21510 VAS=UAS+CHRS(X+128#CX)2 128) ) 

21528 T=T+1 : X=PEEK(T) 

21530 IF PEEK(T-1)(128 THEN 21519 

21548 RETURN 


21510 


Effectue la concaténation ; l'équation logique, 128*(X > 128) per- 
met de retirer 128 au code ASCII du dernier caractère de la variable 
qui, comme nous l'avons vu au Chapitre 3, a été augmentée de 128 
par l’interpréteur. 


21520 


Incrémente T et va chercher le code ASCII suivant. 


21530 


Vérifie si le code ASCII précédent n'était pas le dernier de la varia- 
ble (soit X > 128). Si c’est le cas, on sort du sous-programme ; sinon 
on se branche en 21510 pour continuer la concaténation. 
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MODULES DE RECHERCHE 


Les six modules de recherche sont tous composés de la même 
manière ; nous expliquerons le premier en détail puis, pour les autres, 
nous donnerons simplement les différences par rapport à ce module 
de base. 


21999 REM ... soccer essences enese 
220608 REM RECHERCHE DE VARIABLES ENTIERES 
22801 REM ...........sssossosesmss mens eee mess nnesnesmesesneseuse 
22018 NU$S="ENTIERES" : VA$="" : GOSUB 21108 

22028 IF Fl=-1 THEN 28818 

22038 T=T-2#(X=3 OR X=13) : IF X(>2 THEN GOSUB 21218 : GOTO 22828 
22048 T=T+2 : GOSUB 21518 

22058 IF X=48 THEN VAS$="" : GOSUB 21238 : GOTO 22828 

22868 GOSUB 21410 : GOSUB 21238 : GOTO 22828 


22000 
REM rappelant le but du module qui suit. 


22010 


NVS$ est la variable dans laquelle nous plaçons le titre de la recher- 
che effectuée pour pouvoir le rappeler au moment de l'édition des 
résultats. VA$ est la variable dans laquelle nous placerons les carac- 
tères composant les variables trouvées ; nous l’initialisons donc à ‘rien 
du tout”’. Puis nous appelons le sous-programme situé en 21100, qui 
est le premier sous-programme, pour calculer l'adresse de l’instruc- 
tion suivante, le numéro de l'étiquette de l'instruction en cours 


d'exploration, et pour effectuer une première exploration. 


22020 


Si nous revenons du sous-programme avec le drapeau FL à -1, 
c'est que nous sommes arrivés à la fin du programme ; nous allons 
alors en 28010, vers le menu d'édition. 


22030 


Dans le cas contraire, FL est égal à zéro, et dans la variable X nous 
avons le code ASCII de la dernière mémoire explorée. Si ce code 
ASCII est égal à 3 ou 13, ce sont des variables en virgule flottante 
où alphanumériques qui ne nous intéressent pas ; mais nous devons 
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sauter les deux octets suivants qui correspondent à l'adresse de 
stockage et qui sont de valeurs quelconques ; ce que nous effectuons 
par l'équation logique —2+*(X=3 OR X= 13) qui vaut +1 pour X=3 
ou X= 13. 

Nous testons ensuite si ce code ASCII est égal à 2. Si ce n'est pas 
le cas, il ne s’agit pas du début d’une variable entière ; nous appe- 
lons alors le sous-programme d'exploration pour analyser le code 
ASCII suivant, mais au niveau de l'instruction 21210. En effet, il ne 
faut pas aller au début de ce sous-programme en 21100, car entre 
21100 et 21200 nous traitons les débuts d'instructions. En 21210, nous 
trouvons l'instruction qui incrémente la variable T d’une unité. Lors- 
que nous revenons de ce sous-programme, nous retournons en 22020 
pour recommencer les mêmes tests. 


22040 


Lorsque nous arrivons à cette instruction, c’est que le code ASCII 
contenu dans X est celui d’une variable entière ; nous sautons les deux 
octets suivants pour les mêmes raisons que précédemment, et nous 
partons vers le sous-programme de concaténation en 21510. 


22050 


De retour du sous-programme de concaténation, le résultat se trouve 
dans VA$, et dans X nous avons la valeur du premier octet situé après 
la fin de la variable. Dans le cas des variables entières non dimen- 
sionnées, il ne doit pas y avoir de ‘‘(’’ après la variable, donc X doit 
être différent de 40 (code ASCII de ‘‘(’”) ; si X est égal à 40, cette varia- 
ble ne nous intéresse pas et nous l’effaçons avec VA$=‘’". Ensuite 
nous appelons de nouveau le programme d'exploration, mais en 
21210 car nous avons déjà incrémenté T dans le sous-programme 
de concaténation et mis le code ASCII de la mémoire dans X. Lors- 
que nous revenons de ce sous-programme, nous allons en 22020 
recommencer les tests. 


22060 


Lorsque nous arrivons à cette instruction, c’est que nous avons bien 
trouvé une variable entière non dimensionnée ; nous allons alors dans 
le sous-programme de stockage en 21410. Le stockage terminé, nous 
retournons au sous-programme d'exploration en 21230 carT ne doit 
pas être incrémenté, il l’a déjà été dans le sous-programme de 
concaténation. 
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22999 REM ...... sossssresreneneeennsse snnsrsssssenensnsnsneses us... 
23006 REM RECHERCHE DE VARIABLES REELLES 
23981 REM ..............ssssnemseses een en smsessn esse euese 
23018 NU$="REELLES" : VA$S="" : GOSUB 21100 

23820 IF FL=-1 THEN 28810 

23030 T=T-2#(X=2 OR X=3) : IF X<>13 THEN GOSUB 21216 : GOTO 23828 
23040 T=T+2 : GOSUB 21510 

23850 IF X=48 THEN VAS="" : GOSUB 21238 : GOTO 23028 

23069 GOSUB 21418 : GOSUB 21230 : GOTO 23028 


23000 à 23060 


Ces instructions sont identiques à celles du module précédent, seul 
le deuxième chiffre de l’étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. 


23999 REM ... users romesnes eee nos 
24008 REM RECHERCHE DE "VARIABLES ALPHANUMERI QUES 
24801 REM ....,..,......... .. none esssssees sos 


24818 NV$="ALPHANUMERI QUES" : ‘Vas="" 3 ‘60osÙB ‘21168 

24828 IF Flæ=-1 THEN 28818 

24838 T=T-2#(X=2 OR X=13) : IF X<>3 THEN GOSUB 21218 : GOTO 24028 
24848 T=T+2 : GOSUB 21518 

24050 IF X=49 THEN VA$="" : GOSUB 21238 : GOTO 24028 

24868 GOSUB 21418 : GOSUB 21230 : GOTO 24820 


24000 à 24060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l'étiquette change, ainsi que le rôle joué par 
les variables entières, en virgule flottante où alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. 


24999 REM ................ nsc ss … 
25008 REM RECHERCHE DE VARIABLES ENTIERES DIMENSIONNEES 
25881 REM .................ssussues sunsnessesroseense RESTES EEE 


25818 NUS= "ENT IERES "DIMENSIONNEES" : VAS="" : GOSUB 21168 

25028 IF Fl=-1 THEN 28010 

25830 T=T-2#(X=3 OR X=13) : IF X<>2 THEN GOSUB 21218 : GOTO 25828 
25048 T=T+2 : GOSUB 21510 

25050 IF X<)>48 THEN VA$="" : GOSUB 21238 : GOTO 25828 

25868 GOSUB 21410 : GOSUB 21230 : GOTO 25028 


25000 à 25060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l'étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante où alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Mais maintenant, nous désirons avoir 
une ‘‘(”’ derrière la variable, puisqu'elle est dimensionnée ; par con- 
séquent, le test fait en 25060 est inversé : c'est X< > 40. 
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25999 REM .............. PER EEETEEESEE DRE TESTESEEEEE nnnnesnsnses 
26088 REM "RECHERCHE DE VARIABLES REELLES DIMENSIONNEES 
26881 REM .........ssssssssse snsnssssssessnssssse cnsnnossssuss … 
26818 NV$="REELLES DIMENSI ONNEES* : VAS="" : "60su8 21108 
26828 IF FL=-1 THEN 28818 
26938 T=T-2*(X=2 OR X=3) : IF X<>13 THEN GOSUB 21218 : GOTO 26828 
26648 T=T+2 : GOSUB 21518 
26858 IF X<>48 THEN VA$="" : GOSUB 21238 : GOTO 26828 
26868 GOSUB 21418 : GOSUB 21238 : GOTO 26828 

26000 à 26060 


Ces instructions sont identiques à celles du module précédent ; seul 


le deux 


ième chiffre de l'étiquette change ainsi que le rôle joué par 


les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Le test fait, 26060 est toujours 


X< > 40. 
26999 REM .. soso ennnsnsnesssnnessnesssssssssssesesse 
27888 REM RECHERCHE DE VARIABLES ALPHANUMERIQUES DIMENSIONNEES 
27801 REM ... soso nn 
27018 NU$="ALPHANUMERIQUES DIMENSIONNEES" : VA$="" : GOSUB 21188 
27628 IF FLl=-1 THEN 28818 
27038 T=T-2#(X=2 OR X=13) : IF XC>3 THEN GOSUB 21218 : GOTO 27828 
27640 T=T+2 : GOSUB 21518 
278506 IF X(>48 THEN VAS$="" : GOSUB 21230 : GOTO 27828 
270668 GOSUB 21419 : GOSUB 21230 : GOTO 27828 


27000 à 27060 


Ces instructions sont identiques à celles du module précédent ; seul 


le deux 


ième chiffre de l’étiquette change ainsi que le rôle joué par 


les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Le test fait, 27060 est toujours 


X< > 40. 
EDITION DES RESULTATS 
27999 REM ....... cnsnsnesesseenessesss ns cnrs 
28008 REM EDITION DES RESULTATS 
28891 REM ...... RO OL dose remisréret iéda esse sn e 
28818 CLS 
28020 L$=" tentes "5 Ef="enxxx" 
28030 FOR K=1+1 TO 25 : B$(K)="" 3: NEXT K 
28848 LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 
28858 LOCATE 5,18 : PRINT "A L'ECRAN .........s.e ss... E° 
28868 LOCATE 5,14 : PRINT "A L’IMPRIMANTE + ECRAN .... 1" 
28978 LOCATE 5,28 : PRINT “TAPER VOTRE CHOIX LE/1)" 
28988 R$=INKEYS$ 
28098 R$=INKEYS : IF R$="" THEN 28098 ELSE R=ASC(RS#) 
28108 IF R=69 THEN 29819 
28118 IF R=73 THEN 38810 
28128 GOTO 280898 
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28999 REM ...........s.e sos sssouees cnsssssssnsnsnnsss sons 
29008 REM SORTIE ECRAN 


29881 REM ......sossssonssneuse ns sssnssnessssseses 

29818 CLS 

29828 LOCATE 1,1 : PRINT L$ : LOCATE 1,2 : PRINT E$;" NOMS DES VARIABLES 
"3E$ 


29838 P=INT((48-LENCNV#) )/2) 

298648 PRINT TAB(P) ;NV$ : PRINT L$ 

29858 IF 1=8 THEN LOCATE 17,12 : PRINT "AUCUNE" : GOTO 29898 

29068 FOR J=1 TO I : C$=B$(J) 

29070 IF Y=3 OR Yæ=é THEN C$=C$+"#8" 

29088 PRINT C$ : NEXT J 

29898 R$=INKEYS : IF R$="" THEN 29898 

29188 GOTO 31818 

29999 REM .. someone consonnes DEEREEEEEEEE ES EEE ….... 
30008 REM SORTIE ECRAN + IMPRIMANTE 
38801 REM ............: snssnrsnesse css ssonesnesnnsnesess sus. 
386818 CLS 

30828 LOCATE 18,6 : PRINT “ALLUMER L'’IMPRIMANTE" 

30838 LOCATE 7,14 : PRINT "PUIS TAPEZ SUR UNE TOUCHE“ 

30048 R$S=INKEYS : IF R$="" THEN 38848 

30858 PRINT #8, L$ : PRINT #8, E$;" NOMS DES VARIABLES "3E$ 
38868 P=INT((48-LENCNUS ) )/2) 

30078 PRINT #8,TABCP);NV$ : PRINT #8,L$ 

30088 IF 1=0 THEN PRINT #8, : PRINT #8,"AUCUNE" : GOTO 29898 

300906 FOR J=1 TO I : C$=B$(J) 

30108 IF Y=3 OR Y=é6 THEN C$=C$+"#" 

30119 PRINT #8,C$ : NEXT J 

30120 GOTO 29818 


Comme pour le programme de recherche de TOKEN, nous don- 
nons la possibilité d'afficher les résultats soit à l'écran, soit sur impri- 
mante plus écran. 


28010 


Nettoyage de l'écran. 


28020 


L$ et E$ permettront de simplifier la réalisation du cadre de pré- 
sentation des résultats. 


28030 


Remet à zéro les variables B$ qui ont stocké une variable rencon- 
trée deux fois, afin de ne pas la voir s’imprimer deux fois dans la boucle 
d'écriture (voir boucle d’affichage 29060 à 29080). 


28040 à 28070 


Présentation des messages de choix du menu. 
28080 à 28090 
interrogation du clavier. 
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28100 et 28120 


Aiguillage en fonction du choix de l’opérateur. R=69 code ASCII 
de E, on effectue un saut à l’ordre 29010 où se trouve le programme 
d'édition à l'écran. R=73 code ASCII de |, on effectue un saut à l’ins- 
truction 30010 où se trouve le programme d'édition sur l'imprimante ; 
ce programme fera lui-même effectuer un saut en 29010 lorsqu'il aura 
terminé l'impression, pour faire l'édition à l'écran. Si R est différent 
de ces deux réponses, retour à l'interrogation du clavier en 28090. 
29010 


Nettoyage écran. 


29020 à 29040 


Présentation du titre, NV$ contient le nom du type de variable que 
l’on vient de rechercher. 


29050 

Si l’on n’a pas trouvé de variable du type recherché, soit 1=0, on 
affiche ‘AUCUNE’. 
29060 à 29080 


Boucle d'affichage des résultats, deux noms de variables par ligne. 
Si l’on a trouvé un nombre impair de variables, soit 2xP +1, on affi- 
che aussi avec cette boucle la variable B$(2+P +1) ; c'est pourquoi 
il est nécessaire de remettre à zéro les B$(J) qui sont au-delà du rang 
de la dernière variable trouvée. 

29090 


Boucle d'attente sur le clavier, permettant de regarder les résultats 
et de passer à la suite en frappant sur n'importe quelle touche. 


29100 


Saut sur le menu final. 


30010 


Nettoyage écran. 
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30020 à 30040 


Message pour rappeler qu’il faut mettre l'imprimante sous tension, 
et boucle d'attente sur le clavier. 


30050 à 30070 


Impression du titre ; NV$ contient le nom du type de variable que 
l'on vient de rechercher. 


30080 


Si l’on n’a pas trouvé de variable du type recherché, soit 1=0, on 
imprime ‘AUCUNE’. 


30090 à 30110 


Boucle d'impression des résultats, deux noms de variables sont 
imprimés par ligne. 


30120 


On se dirige maintenant vers l'édition à l'écran. 


Nous terminons par un petit menu de clôture permettant soit de 
rechercher un autre type de variable, soit de sortir du programme. 


30999 REM ... soso nes esse n esse en ensmes esse eseesses 
31006 REM QUITTER OÙ RECOMMENCER 
31001 REM .. someone essences soso sesoues 
31018 CLS 

319828 LOCATE 8,18 : PRINT "DESIREZ-VOUS RECHERCHER" 

31838 LOCATE 18,14 : PRINT "UNE AUTRE VARIABLE" 

31848 LOCATE 15,18 : PRINT "LO/N] :" 

31058 R$=INKEYS$ 

318668 R$S=INKEYS : IF R$="" THEN 31668 ELSE R=ASC(RS#) 

31070 IF R=79 THEN RUN 

31088 IF R=78 THEN CLS : END 

31098 GOTO 31068 

31099 REM ........ sus esse emememenseensenesesenenese 


31010 


Nettoyage de l'écran. 


31020 à 31040 


Affichage des choix du menu et mode d'emploi. 
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31050 à 31060 


Lecture du clavier. 


31070 

Si l'opérateur désire continuer, réponse O (code ASCII 79) ; on 
relance le programme par RUN. 
31080 

Si l’opérateur désire arrêter, réponse N (code ASCII 78) ; on ter- 
mine avec END. 
31090 

Retour en 31050 si l'opérateur n’a pas encore répondu, ou s’il a 


donné une réponse incorrecte. 


Vous pouvez bien sûr taper ce programme par morceaux et le sau- 
vegarder au fur et à mesure. Quand vous aurez fini de l’introduire, 
vous pourrez l'essayer directement ; il s’auto-explorera. 

Quand votre programme fonctionnera correctement, vous pour- 
rez passer au chapitre suivant. 
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LISTING DU PROGRAMME 
RECHERCHE DE VARIABLES 


Sessssesssssssnssessssssesssesensssssesssssssessessssssssesssse W34 


FHWNV4904d4 3Q N14 3Q 1S31 Wa 
ess ss ess ses ses ess ses ses ess 202... 000.50 W34 
“"NOI1VY4071d4X3,Q SANOID N3+ INIdd : ZI°81 31Y907 

“NOILONYISNI, 71 3Q 3113N01134 INIdd ? 81°8 3199071 : S719 


Ssssesssssesssssseressssessessssseseessss ses W34 
S3HNVYIOUd SNOS Wa 
Sessesssssseessssssssss esse ses 0000... Wa 


O1042 81092 01862 810bZz 810EZ 81022 DO109 À NO : 8b-A=A 
9=I : YVULIXI=(0Y : JYLIXI=L 

$u ININdd : 02'‘8b 315901 35713 02102 NIHL bS<H NO 6b>4 11 
(HH)DISV=HY 35713 9Z19Z NIHL un=$Y A1 ? HSAIHNI=HY 


SAIHNI=HA 

“(9/11 XIOHI 3H10N 3Q OMAN 371 Y3dWir INIdd : 021 31V907 

n9 ‘* ANNOISNINIQ 3NOIHINNNEHd V4 INIdd : 91°G 319907 

«SG ‘tt *" ANNOISNINIQ 3711384 INIdd : bI°S 31V907 

nt ‘°""""""" ANNOISNIHIQ 3H3I1N34 INIdd :21°G 31V907 

ne ‘tt 3NOINAMNNHd IV» INIdd : 81°S 3159071 

“Z Sn ss e 377334, IiNIdd : 8'çs 319907 

np tttttttteteetettttett JHY3IINI4 INIdd : 9'S 3105907 

"37198VI4VN 30 3dAL NA XIOH9I4 INIdNd : 1°8 3165907 

S79 

I IX3N * «=(1)$9 : SZ OL I=I 404: (S2)$9 WIQ 

89E=9VLIXL 

PGEé =9S2X9E +0b1=H3H071 W34 
PE =PSTAT +I1I—-AULIXL W34 
S3714VI4VN 30 3H9Y3H934 3Q 3HHVYIOUd W34ù4 


TeTIe 
BZTIS 
6TITITe 
arTrIe 
88TIz 
Taerz 
88871e 
6668 
8S102 
gt102 
QET0Z 
g2102 
81192 
88102 
869097 
880682 
84002 
8988z 
86892 
CLAITA 
0£00z 
0288 
8100z 
89082 
86661 
Pé661 
btéééi 


C13H33d4=X : 1+1=L1 
ObETZ 35713 090€12Z N3IHL 8bI=X 11 


00... 500002525009... Wa 


V1VQ S34 NOIILENINI 73 W34 
2.000000 000 006000000000 000000000000. Wa3ù 
09212 NIHL bEC>CL1)H334 41 ? F+1=1 

QÉZIZ 3S713 O92TZ NIHL bE=X 11 


0.290.000. 090005000000... W3ù4 


NO L'AFNNNCH AY, 71 NOILENIHIT73 W34 


000000000090 00... RER 


GETIZ 0109 : QV=L NIHL 261=X 11 


0.000000. WN3ù4 


W34 S3Q NOILENINWI 73 Way 
nnerrereeeeseees eee eee eee esse JU 
(13H33d=X : F+1=1 

€E+i=L1 

13 INIdd : 91'°81 3199071 

(E+1)H33d#9S2+(2+1)H33d=13 


ss. 0000000050. Wa 


NOILOINYILSNI 1 3Q 31130113 W34 


000000052000 0.500... W34 


dU+(1+1)H33d*x9S2+(1)H33d4=06 


ess ess ss 0005000000: 0500000052... WN34 


3INYINS NOILINYILSNI,1 30 3553404 W34 
2... 20000 0005 000002 000 2: 002 00 0000000000: 0.0 W3ù4 
NYNL3Y * 1-=7141 N3HL 0=1 QNY 8=3 ONV 9=Q 11 

CT+19H33d=4 : (1)H33d4=3 : (1-1)334=Q 


O9ETZ 
86212 
18212 
88212 
ééziz 
89272 
Sete 
LZATA 
gbetre 
6EZIz 
BEZTE 
Feziz 
O2zre 
étare 
aT2re 
a8212z 
gérez 
88112 
TaTIrz 
L'ART 
69112 
OSTIZ 
AAA TA 
ObITe 
é£Trz 
SETTSZ 
QETTE 


S3718VI4VN S3Q NOILONILYINOI 


L  1X3N 


S3718VIA4VN S3Q 39VHIOLS 


NOILOINYISNI ,Q NI4 3Q 1S31 


S379n0Q SN3HO0O1 S3Q NOILENIWI 73 


GISTZ NIHL 821>C1-1)H33d 41 


C1)2H334=X 


ÿ F+1=1l 


CCBZILX)#BCT+X) EUHI + SON=FEN 


8ETIZ 0109 


C(12H33d=X : 


CCPDE9=8ND)+I=I : 


NYN1i34 : 
F-1 OL 
SYN=(1) 549 


Nan134 


W334 
W34 
W34 

un =BON 
= 404 
ï F+I=I 
°°° W34 
W34 
W34 
 0=13 


1+1=1 N3HL 8=X 11 


W33 
W34 
W34 


Z+1=1 N3IHL GG2=X 11 


W34 
W34 
W334 


C1)H33d=X*: (TE=X)#P-CTE>X NY GZCX)#E-(GZ=X)#Z-CLZ>X ANW ETX)-I=L 


S31INVISNOI S3QG NOILENINI T3 


W34 
W34 
W34 


OBETZ 3S713 OT2IZ NAIHL I=X 11 
ObETZ NIHL 8=X 11 


QESTeZ 
AZSIZ 
GISTe 
FOSTz 
a8ST2z 
éébie 
gEbIz 
CTA AT 
arTbic 
T8bIZ. 
a8b1e 
ééErz 
géErZ 
G8E1Z 
PeE Te 
QAETZ 
69EIrZ 
Q9E12 
ISETS 
OSETZ 
ébEre 
ObETZ 
FEETZ 
OEETSZ 
écElrz 
QZETS 
OTETS 


020v2z O109 * 6E£EZzT12z 4nsO9 n.=$N NIEHL 0b=X 11 
O1ISIZ 4NnSO9 : Z+1=1 
820tv2 0109 * @I2ZI12Z 9NSO9 NIHL EC>X 41 © (EI=X NO Z=X)#2Z-1=1 
81082 NAHL 1-=714 11 

BOTTIZ 4NSO9 ? = BON  ,SINOIIININMHA IV, =SNN 


2... 000000000000 0000000000... WN34 


S3N00133HNNHd 10 S318VI4VN 30 3HI943H934 Wa 
00000000. 000000000000 0.0 0090000000. Wa4 
QZOEZ 0109 *: AELSIZ 4NSON9 *: G1bIZ 4aNnsSON9 

QZOEZ 0109 : BEZIZ ANSON9 * ,4=HVN NIHL 8b=X I 

OISTZ ANSO9 : 2+1=L 

QZOEZ 0109 : BTIZIZ 4NSON NIHL EFICDX AI © (E=X AO Z=X)#2-1=1 


81982 N3HL 1-=14 41 

QO1TTZ 4NSON9 ? uu= BON ? 1 S371133 à =HNN 

00 0 0 000000 000 000000 002020000000 000.0. 0... Wa 
53771334 S3719VI46VN 3Q 3H943H934 W3ù 
0 0 0 00000 0 0 00 000000000000. 000. W33 


02022 0109 : 9EZIZ 4NSON *: A1bIZz 4aNnSOI 

9202Z 0109 * BEZIZ ANSON9 ? nn=BYN NIHL Db=X 11 

BIGTZ 4NSO9 * Z+i=1 

82922 0109 :* 91212 9NSO0O9 N3IHL Z<>X 141 © (EI=X A0 E=X)#2-1=1 
01982 N3HL 1-=114 11 


BOTIZ 9NSO9 ? nn =BVN 4 SI4IILNI 4 =HNN 
CCC RC W34 
S343I11N3 S37198VI460N 30 3H9343H938 W33 
CRC) W3X 


NINL34 


aS8bez 
0babe 
CHXLTA 
020tz 
CAULTA 
108bz 
e00vz 
éééEz 
Q98EZ 
0S9EZ 
ObOEz 
QEBEZ 
QZ9EZ 
ATOEz 
FOgEz 
CL ETS 
éééee 
9822 
asece 
avez 
gEgzz 
CAT AA 
arazz 
1082e 
882 
éééie 
8bSITz 


02842 0109 *: BEZIZ 4NSO9 : ss. =$VN NIHL 9bC>X AI 

BTSIZ 4NSON9 = Z+1=L 

82942 0109 : 81212 9NSO9 NAIHL EC>X AI © (EI=X AO Z=X)#2-1=L1 
81082 NAHL 1-=714 11 

88112 4NSO9 * uu=BVN ? «SIINNOISNINIG S3N0 I YIANINHd IV « =SAN 


CRC Wa 


S33NNOISNINIG SANOIY3HNNMH AY S37189VI4VN 34 3H943H934 W3ù 
Dasernseeesesen sense esse sense sense ses MY 
02892 0109 : 8EZT2 aNSO9 *: BIbIz ans09 

02092 0109 * BEZIZ ANSO9 : «u=HVN NIHL 8bC>X 411 

OISTZ 4NSO9 à Z+i=L 

02092 0109 : @8IZIZ 4NSO9 NIHL ETCDX 41 * (E=X 40 2=X)#2Z-1=1 
81882 NIHL 1-=14 11 

OBTIZ ANSO9 ? nu = EVA * « SIINNOISNINIQ S371334,=$NN 


2... 5.50... 0000000... WAY 


SI3NNOISNANIQ 53711334 S3719VI46VN 3Q 3H943H934 W3ù 
dun neserese sms esse sense ere sense NI 
020S2 0109 : 8EZrz anSON9 : BItIz ansO9 

020S2Z 0109 : B9EZIZ 9NSO9 : ,,.=$VN NIHL 8bC>X 11 

OTSIZ gnNSO9 : Z+i=L 

0Z29S2Z 0109 : 81212 aNSO9 NIHL Z<>DX 41 ? (ET=X NO E=X)#2-1=1 
01082 N3IHL 1-=14 11 

DOTIZ 9NSO9 * «eu = HN ? « SIINNOISNINIG SIUFI INT, =SNN 


CCC D] WA 


S3I3NNOISN3INIG S3Y3IIN3 S3719VI4VN 30 3H943H934 W33 


CCC WN3ù4 


028+vz 0109 : BEZIZ 4nNSO9 *: BIbIZ ansO9 


8S82Z 
0t84e 
CET: PArA 
82842 
arc 
18842 
88842 
66692 
09892 
85092 
0ta9z 
0€ 092 
82092 
ar109z 
16992 
88892 
é66sz 
89 8Se 
aS0S2 
gtesz 
DE Se 
028S2 
CALE 
Fa9sz 
889Sz 
ééébte 
990bvz 


n$bu+$9=$9 NIHL 9=4 NO E=A 1I 

(P)$89=$9 : I OL I=f 04 

06062 0109 : ,3NNINV, INIdd ? ZI‘21 319901 NIHL O=I AI 
$1 INIdd : SAN (d)9VL LNIüd 

CZ/ CCSNNDN37- 8b ) > INI=d 


S3719VIA4VN 534 SHON "#53 ININd ? Z°1 3109071 : $71 INIdd : I°I 310907 
... ee L] S 19 

. ss ses essenssesseessceesese eee WN34 

NVN93 31140S Waù 
ss ses seems essor sesssesessesseeeeeeosseeeees W3ù4 

8688Z 0109 


OTO0E NIHL Ec=Y 11 

61062 NIHL 69=8 11 

CS4)9ISV=Y 35713 86082 NIHL uu=$H4 11 : SAIHNI=S$SY 
HATHINI=HA 

“(1/31 XIOH9 3410N 43dVL. INIdd : 8z°S 315907 

1 """" NON93 + 3INGWINdWI,71 Vs INIdd ? bI'S 315907 
nu tte NYN93,71 VW, INIdd : 81°S 31v907 
«S1VL7NS3Y S3Q NOILIGI, INIdd * b‘°8 31v907 

H 1LX3IN * uu=(H)$4 * SZ OL I+I=H 401 


ve 6 EE = .=$ ] 

S79 

A 
S1VL17NS34 S34 NOILIGA3 Wa 


2.000255... RE 


02942 0109 : BEzTe aNSON9 : 81ItIZ ansO09 


0406Z 
0906Z 
0S06z 
0ba6z 
9£06z 
$3:. 

02046z 
8106Z 
18806Z 
8896Z 
é668z 
0z18z 
a118z 
0818Z 
8698z 
0808Zz 
8408z 
09982 
0S08Zz 
0bo8z 
0£08z 
0Z98z 
a198z 
1888z 
0808z 
ééécz 
CZ: 142 


(EY)DISV=H 35713 9POIE NIHL nn=BU 11 ? BAIHNI=SY 
$SAIHNI=$H 

nt [IN/O]J INIùd 81‘SI 31907 

"3719VIN4VN 341NY AN INIdd bi‘0r 31907 
"H3H9Y43H934 SNON-23Y41S304 INIdd : 81°8 31907 


S79 
sons nrenene seen sense esse esse NAN 
439N3HNO934 NO Y43LLIND W34 
snsessnnesne seen esse nenne ses enennnnenenss esse MAN 

81862 0109 


[ 1AXIAN : +$9'°8# INIYd 

uBu+$59=$89 NIHL 9=A YO E=A 1I 

(P>$9=$9 : I OL I=[ 404 

04062 0109 : «.3NN9NV.'8# INIdd : ‘S8# INIdd N3HL 9=I I 

$1'8# INIdd : $NNf(d)9V18# 1INIùd 

(Z/ CCSNNDN371- 8 >) INI=d 

$3. S3718VIAYN 534 SHON 553 ‘S# INIdd : $1 ‘S# INIùüd 
ODOGE NIHL un=$U 41 ? HSAIHNI=SU 

"3HONOL 3NN ANS 23dWL SINda INIdd : b1‘4 315907 

nFINOPNINdWI,71 43HN7171V, INIdd : 9*981 31V907 


579 
sons sens nee seen nnnesenreneennseenenenemssesnesesee NAN 
3INCVWIAdWI + NV493 31140S W3ù4 
sonne sn seen een eee esse sense NAN 

QTOTE 0109 


06062 NIHL nn=$4 11 ? SAIHANI=$SH 
L IX3N * $9 INIäd 


QPOTE 
ASOTE 
BtOTE 
BEBTE 
QZOTE 
OTOTE 
TOOTE 
Q8B8TE 
ééég£ 
0219 
OTTOE 
OOT8E 
0600€ 
0808€ 
0400€ 
0908€ 
0SO0€ 
0bvO9€ 
0£00€ 
9209€ 
OTOGE 
TO88E 
0000€ 
ééééz 
28162 
2684627 
08062 


W34 64687 
OPATE 0109 O681IE 

QN3 : S719 N3HL 84=H 11 9S8Q07IE 
NNY NIHL 64=U 11 B2QTE 


PROGRAMME COMPLET DE DÉVERMINAGE 


Aux Chapitres 5 et 6, nous venons de réaliser deux programmes 
permettant d'effectuer les deux fonctions désirées pour le déverminage 
d’un programme BASIC. Il ne nous reste plus qu’à réunir ces deux 
programmes en un seul en y ajoutant un menu permettant d'accéder 
facilement à l’une ou à l’autre de ces possibilités de recherche : 


e soit la recherche d’un ordre BASIC ; 
e soit la recherche d’une variable. 


Comme vous avez pu le constater, la numérotation des étiquettes 
des programmes a été effectuée de manière que l'addition (ou plutôt 
la réunion) de ces deux programmes constitue le programme final. 

Il restera cependant quelques modifications à apporter concernant 
le positionnement des ordres DIM en tête de programme de manière 
à éviter le message d'erreur ‘’REDIMENSIONED ARRAY"’. 

La fonction MERGE — addition de deux programmes — existe sur 
l’Amstrad, mais elle pose quelques problèmes sur les programmes 
que nous venons d'écrire (voire sur des programmes beaucoup plus 
réduits). Nous réaliserons cette fonction très simplement à l’aide de 
quelques PEEK et POKE, puisque les mouvements de TXTTAB et de 
LOMEM n'ont plus aucun secret pour vous. 


MERGE DE DEUX PROGRAMMES 


Nous allons choisir à titre d'exemple deux programmes très courts. 
Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 
Ensuite, introduisons le programme suivant que nous appelons 
CH7-P1 : 


19 REM CH7-P1 

@ CLS 

38 FOR I=i1 TO 2 

48 PRINT "CECI EST LE PROGRAMME 1 


58 PRINT 
68 NEXT 1! 


Obligatoirement pour ce programme, le TXTTAB est le TXTTAB nor- 
mal, soit 367. 
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Le LOMEM vaut 481, ce qui se vérifie en tapant : 


PRINT PEEK(44675) Réponse : 225 
PRINT PEEK(44676) Réponse : 1 
LOMEM=-225+1+256-481 


Ne faites surtout pas RUN et sauvegardez ce programme en faisant : 
SAVE “CH7-P1" 


Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 

Introduisons maintenant le Programme 2, que nous appelons 
CH7-P2. 


1@@ REM "CH7-P2" 

118 FOR J=i TO 3 

128 PRINT "CECI EST LE PROGRAMME 2" 
130 PRINT "+tttthtthttttttttt tt +++ ++" 
148 NEXT J 

150 END 


Obligatoirement pour ce programme aussi, le TXTTAB est le TXTTAB 
normal. 
Ne faites surtout pas RUN et sauvegardez ce programme en faisant : 


SAVE “CH7-P2" 


Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 

La fonction MERGE consiste à charger simultanément en mémoire 
deux programmes (CH7-P1 et CH7-P2) et à les mettre bout à bout 
pour ne faire qu’un seul programme. 

Effectuons maintenant le chargement de CH7-P1 par : 


LOAD “CH7-P1" 


Ne faites surtout pas RUN. 

Plaçons maintenant le TXTTAB à la valeur du LOMEM actuel moins 
trois unités, soit 481 — 3 =478 (ou 222 partie basse et 1 partie haute : 
222+1*x256=478) : 


POKE 44673,222 
POKE 44674,1 
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Le contenu de la mémoire est actuellement le suivant : 


367 0 Début de programme. 
368 15 Longueur de la première 
369 0 instruction de CH7-P1. 


379 10  Étiquette de la première 
371 O instruction de CH7-P1. 


372 197 Token de REM. 


468 11 Longueur de la dernière 
469 0 instruction de CH7-P1. 


470 60  Étiquette de la dernière 
471 0 instruction de CH7-P1. 


472 176 Token de NEXT. 

473 32 Espace. 

474 13 Variable en virgule flottante. 

475 0 Future adresse de stockage 

476 O0 de la variable. 

477 201 Variable |. 

478 Quatre zéros de fin de programme. 


0 
479 O0 
480 0 
481 O 
Chargeons alors le programme CH7-P2 par : 

LOAD “CH7-P2" 


Le contenu de la mémoire est maintenant le suivant : 


367 0 Début de programme. 


368 15 Longueur de la première 
369 O0 instruction de CH7-P1. 
379 10  Étiquette de la première 
371 0 instruction de CH7-P1. 
372 197 Token de REM. 
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468 
469 


470 
471 


472 
473 
474 


475 
476 


477 
478 
479 
480 


481 
482 


483 


586 
587 
588 
589 
590 
591 
592 
593 
594 


11 


60 


176 


32 


13 


201 


15 


100 


197 


U1 
[= 


SOS06 See Sn 
ND 


Longueur de la dernière 
instruction de CH7-P1. 


Étiquette de la dernière 
instruction de CH7-P1. 


Token de NEXT. 
Espace. 
Variable en virgule flottante. 


Future adresse de stockage 
de la variable. 


Variable I. 
Zéro de fin d'instruction. 


Longueur de la première 
instruction de CH7-P2. 


Étiquette de la première 
instruction de CH7-P2. 


Token de REM. 


Longueur de la dernière 
instruction de CH7-P2. 


Étiquette de la dernière 
instruction de CH7-P2. 


Token de END. 
Quatre zéros de fin de programme. 


Compte tenu de l'emplacement où nous avons introduit CH7-P2, 
le raccordement de deux programmes est effectué. Ce que nous pou- 
vons vérifier en tapant maintenant : 


LIST 


Et l’on voit apparaître : 
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19 REM CH7-P1 

20 CLS 

38 FOR 1=1 TO 2 

40 PRINT "CECI EST LE PROGRAMME 1" 

56 PRINT "-----——————————— “ 

668 NEXT 1! 

19@ REM "“CH7-P2" 

116 FOR J=i TO 3 

126 PRINT "CECI EST LE PROGRAMME 2" 
138 PRINT "+ttéttttttttétttttttt+t+" 
148 NEXT J 

158 END 


On peut enfin faire : 
RUN 


Le programme CH7-P1 s'exécute d’abord, puis CH7-P2. 
Pour terminer, sauvegardons ce nouveau programme sous le nom 
CH7-P1 +2 : 


SAVE “’CH7-P1+2" 


Cette procédure est très rapide, bien plus rapide que de retaper 
un programme complet. 

Nous vous avons dit de ne pas faire RUN au cours de la manipula- 
tion pour deux raisons : 


1. pour que les adresses des GOSUB, GOTO et des variables ne soient 
pas données en valeurs absolues, car l’adressage serait faux après 
le MERGE ; 


2. pour ne pas avoir à modifier tous les LOMEM, ARYTAB... et 
HIMEM, comme nous avons été obligés de le faire au Chapitre 5. 


Nous allons utiliser cette méthode pour la jonction des programmes 
TOKEN et VARIABLE pour la réalisation d’un programme complet. 


RÉALISATION DU PROGRAMME COMPLET DE DÉVERMINAGE 


Nous repartons sur un bon pied, c’est-à-dire sur un Amstrad fraî- 
chement initialisé par un RESET. Chargeons le programme TOKEN 
par : 


LOAD “’TOKEN” 
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puis effectuons la commande suivante : 
FOR 1-367 TO 6334 : PRINT L,PEEK(I) : NEXT | 
Nous obtenons : 


367 O0 Début de programme. 

368 68 Longueur première instruction 
369 O du programme TOKEN. 

370 39  Étiquette première instruction 
371 197 du programme TOKEN. 

372 32 Espace. 


6265 67 Longueur dernière instruction 
6266 0 du programme TOKEN. 


6267 251 Étiquette dernière instruction 
6268 58 du programme TOKEN. 


6269 197 Token de REM. 
6270 32 Espace. 
6271 46 Code ASCII de ‘’.”’. 


6329 46 Code ASCII de ‘’.”. 
6330 46 Code ASCII de ‘’.”’. 


6331 0 Fin du programme 
6332 O TOKEN. 

6333 O0 

6334 O0 


Modifions maintenant le TXTTAB de la manière précédente en le 
plaçant au LOMEM-3, soit 6331 (187+24*x256=6331) : 


POKE 44673,187 : POKE 44674,24 
et chargeons le programme VARIABLE : 


LOAD “VARIABLE” 
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A la fin du chargement, demandons le LOMEM : 


PRINT PEEK(44675)+ 256*PEEK(44676) 


Réponse : 15320. 


Puis faisons : 


FOR 1-367 TO 15320 : PRINT L,PEEK (1) : NEXT | 


Nous obtenons : 


367 
368 
369 
370 
371 
372 


6265 
6266 


6267 
6268 


6269 
6270 
6271 


6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 


0 


68 
0 


39 
197 
32 


67 


251 
58 


197 
32 
46 


46 
46 


67 


26 
78 
197 
32 


Début de programme. 


Longueur première instruction 
du programme TOKEN. 


Étiquette première instruction 
du programme TOKEN. 
Espace 


Longueur dernière instruction 
du programme TOKEN. 


Étiquette dernière instruction 
du programme TOKEN. 


Token de REM. 
Espace. 
Code ASCII de ‘’.”’. 


Code ASCII de ‘’.”’. 

Code ASCII de ‘’.”. 

Fin du programme TOKEN. 
Longueur première instruction 
de VARIABLE. 

Étiquette première instruction 
de VARIABLE. 

Token de REM. 

Espace. 
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15251 
15252 


15253 
15254 


15255 
15256 
15257 


15314 
14315 
15317 
15318 
15319 
15320 


Les mémoires 6332, 6333 et 6334 sont modifiées, et nous recon- 
naissons le début du premier ordre du programme VARIABLE. La jonc- 


67 


123 
121 


197 
32 
46 


Oo OOO+H 


Longueur dernière instruction 
du programme VARIABLE. 


Étiquette dernière instruction 
du programme VARIABLE. 


Token de REM. 
Espace. 
Code ASCII de ‘’.”’. 


Code ASCII de ‘’.”’. 
Code ASCII de ‘’.'”’. 


tion est effectuée. 


Si nous tapons LIST, nous voyons apparaître le programme DEVER- 
MINAGE, qui est la réunion des programmes TOKEN et VARIABLE. 


Sauvegardons ce programme : 


SAVE “DEVER" 


Il ne nous reste plus qu’à compléter ce programme par son menu 
principal. Il est également nécessaire de replacer les ordres DIM. Nous 
supprimerons aussi quelques REM qui sont devenues inutiles. C’est 


ce que nous effectuons ci-après : 


1188 DIM A(188) ,A$(18) ,B$(25) 
1118 DATA CLS,DATA,DIM,ELSE ,FOR,GOTO,LOCATE , PRINT ,READ 
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1128 FOR 1=1 TO 9 : READ AS$(I) : NEXT 1 
1138 FOR 1=1 TO 25 : B$#(1)="" 3; NEXT 1! 


2868 CLS 

2818 LOCATE 7,4 : PRINT “CHOIX DE LA RECHERCHE" 
2828 LOCATE 6,18 : PRINT “RECHERCHE TOKEN 1" 
2638 LOCATE 6,12 : PRINT “RECHERCHE VARIABLE 2" 


2848 LOCATE 6,14 : PRINT “FIN DE LA RECHERCHE 3" 
2658 LOCATE 4,28 : PRINT “DONNER LA REFERENCE 1,2 OÙ 3" 
2868 R$=INKEYS 

2878 R$=INKEYS : IF R$="" THEN 2878 ELSE 2888 

2088 R=ASC(RS) : IF R<49 OR R>51 THEN 2858 

2098 IF R=51 THEN END 

2188 IF R=49 THEN 18868 ELSE 28888 


1000 à 1020 


REM pour rappeler le titre du programme et son implantation en 
mémoire. 


1100 à 1130 


DATA et DIM sont replacés en début de programme, ainsi que l’ini- 
tialisation des variables. 


2000 à 2100 


Menu traditionnel en tête de programme. Branchement en 10000 
pour la recherche de tokens ; branchement en 20000 pour la recher- 
che de variables, ou fin de l’utilisation du programme. 


Nous supprimons la plupart des REM, soit les étiquettes : 


9976 - 9998 - 106016 - 16626 - 10438 - 18848 - 18999 - 11408 
11881 - 11644 - 11645 - 11846 - 11@54 - 11055 - 11056 - 11094 
11895 - 11676 - 11164 - 11185 - 11186 - 11124 - 11125 - 11126 
11144 - 11145 - 11146 - 11174 - 11175 - 11176 - 11194 - 11195 
111976 - 11284 - 11285 - 11286 - 11999 - 128@@ - 12681 - 12999 
13008 - 13061 - 13999 - 14806 - 14801 - 14999 - 15806 - 15081 
15477 - 19996 - 19998 - 20016 - 26999 - 21808 - 21881 - 21119 
21128 - 21121 - 21139 - 2114@ - 21141 - 21169 - 21170 - 21171 
21219 - 21226 - 21221 - 21239 - 21248 - 21241 - 21279 - 21280 
21281 - 21329 - 21336 - 21331 - 21349 - 21350 - 21351 - 21369 
21370 - 21371 - 21399 - 214@@ - 21486 - 21481 - 21499 - 21560 
21581 - 21999 - 22060 - 22081 - 22999 - 23600 - 23061 - 23999 
244@û - 24G61 - 24997 - 25000 - 25001 - 25777 - 26008 - 26861 
26777 - 27060 - 27601 - 27999 - 28006 - 28001 - 28999 - 29000 
270@1 - 27999 - 30000 - 360081 - 30999 - 31608 - 31601 - 31899 
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Attention cependant de ne pas effacer des REM qui serviraient de 
branchement. L'encombrement du programme est ainsi réduit et la 
rapidité d'exécution s’en trouve améliorée. 

Pour terminer, nous modifions comme suit les instructions : 15070, 
15080, 31070 et 31080, pour effectuer un branchement à l'endroit 
adéquat lorsque l’on désire refaire une exploration de token ou une 
exploration de variable, ou bien retourner au menu principal. 


15070 IF R-79 THEN 10000 
15080 IF R-78 THEN 2000 
31070 IF R-79 THEN 20000 
31080 IF R-78 THEN 2000 


Nous pouvons alors tester ce programme qui s’auto-analyse, après 
l'avoir sauvegardé bien sûr. 





PROCÉDURE DE CHARGEMENT 


Nous allons procéder comme nous l'avons expliqué au Chapitre 4. 

Tout d’abord, après un RESET de sécurité, nous chargeons norma- 
lement le programme à tester. Nous interrogeons le LOMEM ; comme 
notre programme n’explore pas les valeurs réelles d’un programme, 
il nous suffit de placer notre programme DEVERMINAGE au-dessus 
de ce LOMEM, et d'utiliser le HIMEM habituel. Et comme le pro- 
gramme n’a pas été utilisé, il suffit juste de changer la valeur du 
TXTTAB contenu dans les mémoires d'adresses 44673 et 44674, et 
la valeur du LOMEM contenu dans les mémoires d'adresses 44675 
et 44676 ; le LOMEM est placé trois mémoires au-dessus du TXTTAB 
choisi. 

Si vous voulez explorer un programme qui a déjà été exécuté, vous 
devez charger le programme à explorer au TXTTAB normal, puis le 
programme d'exploration à un autre TXTTAB et à un autre HIMEM, 
repositionner le TXTTAB, le LOMEM et le HIMEM aux valeurs cor- 
respondant au premier programme. Vous exécutez le premier pro- 
gramme, puis vous repositionnez aux valeurs du programme d’explo- 
ration le TXTTAB, le LOMEM dans ses deux couples de mémoires, 
ARYTAB, STREND, FRETOP et HIMEM dans ses deux couples de 
mémoires. Enfin vous pouvez commencer l'exploration. 

Cette procédure est plus longue, mais c’est celle que vous devrez 
utiliser si vous réalisez l'extension d'exploration proposée au Chapi- 
tre 8. 
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LES EXTENSIONS DE CES PROGRAMMES 


EXTENSION DU PROGRAMME DE RECHERCHE D'ORDRE BASIC 


Vous pouvez bien sûr changer les ordres dont on peut effectuer 
la recherche à l’aide de ce programme ; pour cela, il suffit de chan- 
ger les DATA, les inscriptions dans le menu et la valeur des tokens 
correspondants à l’aide de l’Annexe C. 

Vous pouvez programmer la recherche des tokens doubles ; pour 
cela, il sera nécessaire de tester que vous avez trouvé d’abord un 
octet égal à 255, puis que l’octet suivant a la valeur adéquate. 

Vous pouvez aussi compliquer un peu le programme lors de la 
recherche des GOTO et des GOSUB en stockant, en plus de l’éti- 
quette où apparaît l’ordre, l'étiquette de branchement de l’ordre 
GOTO ou GOSUB. Il est cependant nécessaire de faire attention au 
fait que le BASIC de l’Amstrad admet l’ordre 1F......THEN 100 ELSE 
200 dans lequel le GOTO est implicite. 


EXTENSIONS DU PROGRAMME DE RECHERCHE DE VARIABLES 


Tout d’abord, il peut être intéressant de mémoriser l'étiquette 
d'apparition des variables au cours de la recherche. Ou après la 
recherche, pour une variable donnée, de trouver les numéros d'ins- 
tructions qui contiennent cette variable. 

On peut programmer une recherche des variables et de leurs valeurs 
associées en calculant lesdites valeurs à partir des codes ASCII trouvés 
entre LOMEM/ARYTAB, ARYTAB/STREND et HIMEM/FRETOP (voir 
Chapitre 3). 

On peut aussi rechercher non pas les variables qui se trouvent dans 
les instructions BASIC, mais les variables effectivement utilisées par 
le programme lorsqu'il est exécuté. Pour cela, il est nécessaire d’explo- 
rer, après un RUN, la zone LOMEM/ARYTAB, ARYTAB/STREND et 
HIMEM/FRETOP, comme nous l'avons fait au Chapitre 3, et de la déco- 
der. Dans ce cas, l'implantation du programme de recherche doit 
être au-dessus de STREND, et il est nécessaire de protéger la zone 
HIMEM/FRETOP au moment de l'exécution du programme de recher- 
che, ce qui peut être fait au moment du chargement en reposition- 
nant HIMEM. Nous avons vu au Chapitre 7 comment charger les 
programmes. 
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PROGRAMME DE DÉVERMINAGE 
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B9E=AVLIXI 

N3HOL 3Q 3H943H934 30 3HHVY904d W34 


00007 35713 098081 NIHL 6b=H I 

AN3 N3IHL FS=H 4I 

0S0Z NIHL ISKY UD 6b>A AI : CSH)ISV=N 
0802 35713 9/97 NIHL uu=$d 41 HAIHNI=HH 
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OTSIZ 9nS09 *: L+i=Ll 

B1212 9NSON9 NIHL E>X AI * CEI=X 40 Z=X)#C-I=Il 
81982 NAHL 1-=714 31 

BDOTIZ ANSO9 À? mn = VAN SIND IAINNNEHAdIV = NN 
QZQEZ 0109 * BEZIZ 9NSO9 * BIbIz 4aNns09 

QZOEZ 0109 ?: OEZIS ANSON * uu=HVN NIHL 0b=X 11 
BISIZ 9NSOO * L+i=l 

O1T212 94NS09 NIHL ET<>IX 41 * CE=X 40 L=X)xzZ-I1=1 
81082 NAHL F-=14 11 

BOTIZ 4NSOO * nu BON  uS3771338 4 =HNÔN 

02022 0109 * DEZIZ 4NSO9 *: OIbIZ ANSO9 

92922 0109 : DEZIZ ANSOO ? nu =HVN NIHL Ob=X 11 
ATSTZ 9nSO09 : L+i=Ll 

B1212 4NSO0Y9 NAIHL ZC>X AI * CEI=X 40 E=X)#E-I1=1 
601082 NIHL 1-=714 11 

O81TIZ 9NS09 ? nn=BVN © un SI4IIILNI 4 =HAN 

Nan 134 

OISIZ N3IHL 82T>CT-1)H33d4 411 

C13H334=X * T+rl=1l 

CCBZI<X)# ZT +X) SUHI+EON=SEN 

NANLIN un =$VN 


aS0S2 
6vase 
0£0Se 
[TA ESTA 
OT0Se 
070be 
0S6bz 
otvobe 
pete 
o20be 
CAULTA 
090£Z 
OSOESZ 
0vOEz 
OEOEZ 
Q2OEZ 
OTOEZ 
0902e 
LT AA 
avozz 
gEgzz 
ozpce 
CRU 
0bSTe 
QESTE 
BZSIZ 
aTSTe 
DELIZ 


S374VI4VN 534 SHON n#$3 INIdd ? Z°1 310907 : $1 INIdd : 1°} 31V907 
S79 

86082 0109 

BTOGE NAHL E4=4 11 

01062 N3HL 69=ù4 41 


CHU)ISV=Y 35713 96082 NIHL nu=bH A1 * HAINNI=SE 

HAIHNI=$H 

“"C1/31 XIOH9 34101 Y3dWl, INIdd : 9Zz°G 315907 

ul “""" NVON93 + 3INGNINdWI,71 Vu INIdd : bI°S 31V907 

uq tte tetete NVN93,71 Vu INIdd : @1°S 31907 
“"S1VLNS3Y S3Q NOILIQI, INIdd : +t'8 319907 

H LXIN © uu=CH)$4 * SE OL T+I=h 404 

MELLE: CR attenante u=$ 7] 
S79 


02042 0109 : GE£ZTz anSO9 *: 6ItIZ 4anSO09 

02042 0109 : OEZTZ ANSOQ * nn=BVN NIHL 8H<>X AI 

OTSTZ 9NSO09 * L+1=L 

02042 O109 * 81212 4NSON9 NIHL EC>X AI ? CEI=X NO Z=X)#2-1=L 
O1T08Z N3HL 1-=714 41 

OOTISZ ANSO9 ? uu=BVN ? u“ SIINNOISNINIQ SN I HIANNNT Hd IV 4 = SAN 
02092 0109 * @EZTé ANSO9 : BItIz ansO9 

02092 0109 * BEZIZ ANSO9 * uu=HVN NIHL 8b<>X AI 

OISTZ 9anS09 : L+ri=Ll 

02092 0109 : 91212 9NSO9 NIHL EI<>X AI * (E=X HO Z=X)#2Z-1=1 
81082 NIHL 1-=14 11 

GOTTZ ANSOQ ?Ÿ un =BVN ? nn SIINNOISNINIQ 53771334 «= HAN 

620G2 0109 : GEZTe 4aNSO9 : O81b1Zz 4ansSO9 


$3, 

OZD6Z 
O106Z 
0Z18Z 
OTI8Z 
D8TSZ 
06087 
0808 
04082 
0908 
0S08Z 
0t08 
9£08z 
0208 
0108 
09 02Z 
0S0/Z 
ObO4z 
DED4Zz 
0204 
O194z 
0909z 
0Sa9z 
0bo9z 
0EO9EZ 
02092 
0199 
a0cz 


[ 1XIN : $9 INIdd 98062 

nbu+$9=$9 NIHL 9=A 40 E=A 11 04862 

(LC )$9=$9 : I O1 I=[ 404 909062 

0696Z 0109 : ,.3INNINVx INIdd ? Z1°21 31V9071 N3IHL 0=I 11 0S06Z 
$71 INIdd : $SNN'(d)9VL INIdd 9b86z 

(Z/CCHAONIN3T1-0$)D)INI=d 0E96Z 


CODES ASCII 


PRODUITS PAR LE CLAVIER 





Valeur Valeur 

déci- déci- 

male Touche male Touche 
O0 CTRL+@ 30 CTRL+! 
1 CTRL+A 31 CTRL+O 
2 CTRL+B 32 ESPACE 
3 CTRL+C 33 ! 
4 CTRL+D 34 
5 CTRL+E 35 # 
6 CTRL+F 36 $ 
7  CTRL+G 37 % 
8 CTRL+H 38 & 
9 TAB ou CTRL+1 39 ” 

10 CTRL+) 40 ( 

11  CTRL+K 41 ) 

12 CTRL+L 42 

13 ENTER ou CTRL+M 43 + 

14  CTRL+N 44 , 

15 CTRL+O 45 - 

16 CLR ou CTRL+P 46 . 

17 CTRL+Q 47 | 

18 CTRL+R 48 O0 

19 CTRL+S 49 1 

20 CTRL+T 50 2 

21 CTRL+U 51 3 

22 CTRL+V 52 4 

23 CTRL+W 53 5 

24 CTRL+X 54 6 

25 CTRL+Y 55 7 

26 CTRL+Z 56 8 

27 CTRL+[ 57 9 

28 CTRL+\ 58 : 

29 CTRL+] 59 ; 
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Valeur Valeur 


déci- déci- 
male Touche male Touche 
60 < 100 d 
61 = 101 e 
62 > 102 f 
63 2 103 g 
64 @ 104 h 
65 A 105 i 
66 B 106 j 
67 C 107 k 
68 D 108 | 
69 E 109 m 
70 F 110 n 
71 G 111 oO 
72 H 112 p 
73 113 q 
74 J 114 r 
75 K 115 S 
76 L 116 t 
77 M 117 u 
78 N 118 V 
79 O 119 W 
80 P 120 x 
81 Q 121 y 
82 R 122 Z 
83 S 123 

84 T 124 l 
85 U 125 

86 V 126 CTRL+2 
87 W 127 DELETE 
88 X 128 

89 Y 129 

90 Z 130 

91 [ 131 

92 A 132 

93 ] 133 

94 Î 134 

95 — 135 

96 ° 136 

97 a 137 

98 b 138 

99 c 139 
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Valeur Valeur 


déci- déci- 
male Touche male Touche 
140 180 
141 181 
142 182 
143 183 
144 184 
145 185 
146 186 
147 187 
148 188 
149 189 
150 190 
151 191 
152 192 
153 193 
154 194 
155 195 
156 196 
157 197 
158 198 
159 199 
160 200 
161 201 
162 202 
163 # 203 
164 204 
165 205 
166 206 
167 207 
168 208 
169 209 
170 210 
171 211 
172 212 
173 213 
174 214 
175 215 
176 216 
177 247 
178 218 
179 219 
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Valeur Valeur 


déci- déci- 
male Touche male Touche 
220 238 
221 239 
222 240 t 
223 241 | 
224 COPY 242 ce 
225 CTRL+TAB 243 — 
226 244 
227 245 
228 246 
229 247 
230 248 CTRL+ t 
231 249 CTRL+ | 
232 250 CTRL+ — 
233 251 CTRL+ — 
234 252 
235 253 
236 254 
237 255 
Remarque 


Certains codes ASCII ne correspondent à aucune touche ou com- 
binaison de touches, ils peuvent avoir des fonctions, par exemple pour 
envoyer des caractères ‘’contrôle’’ à l'imprimante, et ils ne peuvent 
être créés qu’à l’aide de la fonction CHR. L'interpréteur ou l’ordre 
POKE peuvent bien sûr créer n'importe quel code ASCII dans les 
mémoires. 


— 132 - 






128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 


TOKENS DE L'AMSTRAD 
DANS L'ORDRE NUMERIQUE 


AFTER 
AUTO 
BORDER 
CALL 
CAT 
CHAIN 
CLEAR 
CLG 
CLOSE IN 
CLOSE OUT 
CLS 
CONT 
DATA 
DEF 
DEFINT 
DEFREAL 
DEFSTR 
DEG 
DELETE 
DIM 
DRAW 
DRAWR 
EDIT 
ELSE 
END 
ENT 
ENV 
ERASE 
ERROR 
EVERY 
FOR 
GOSUB 
GOTO 


161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
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IF 

INK 
INPUT 
KEY 

LET 

LINE 
LIST 
LOAD 
LOCATE 
MEMORY 
MERGE 
MID$ 
MODE 
MOVE 
MOVER 
NEXT 
NEW 

ON 

ON BREAK 
ON ERROR GOTO 
ON SQ 
OPENIN 
OPENOUT 
ORIGIN 
OUT 
PAPER 
PEN 
PLOT 
PLOTR 
POKE 
PRINT 


RAD 






194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 


RANDOMIZE 
READ 
RELEASE 
REM 
RENUM 
RESTORE 
RESUME 
RETURN 
RUN 
SAVE 
SOUND 
SPEED 
STOP 
SYMBOL 
TAG 
TAGOFF 
TROFF 
TRON 
WAIT 
WEND 
WAHILE 
WIDHT 
WINDOW 
WRITE 
ZONE 

DI 

El 


ERL 
FN 
SPC 
STEP 
SWAP 


TAB 
THEN 
TO 
USING 
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238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
255-0 
255-1 
255-2 
255-3 
255-4 
255-5 
255-6 
255-7 
255-8 
255-9 
255-10 
255-11 
255-12 
255-13 
255-14 
255-15 
255-16 
255-17 
255-18 
255-19 
2535-20 
255-21 
255-22 
255-23 
255-24 
255-25 


V 


L+HAAAVI 
UV Il 


— 


AND 
MOD 
OR 
XOR 
NOT 


ABS 
ASC 
ATN 
CHR$ 
CINT 
COS 
CREAL 
EXP 
FIX 
FRE 
INKEY 
INP 
INT 


LEN 
LOG 
LOG10 
LOWER$ 
PEEK 
REMAIN 
SGN 

SIN 
SPACES 
sQ 

SQR 
STR$ 


255-26 
255-27 
255-28 
255-29 
255-30 
255-31 
255-32 
255-33 
255-34 
255-35 
255-36 
255-37 
255-38 
255-39 
255-40 
255-41 
255-42 
255-43 
255-44 
255-45 
255-46 
255-47 
255-48 
255-49 
255-50 
255-51 
255-52 
255-53 
255-54 
255-55 
255-56 
255-57 
255-58 
255-59 
255-60 
255-61 
255-62 
255-63 
255-64 
255-65 
255-66 
255-67 
255-68 
255-69 


TAN 
UNT 
UPPER$ 
VAL 


EOF 
ERR 
HIMEM 
INKEY$ 
PI 

RND 
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255-70 
255-71 
255-72 
255-73 
255-74 
255-75 
255-76 
255-77 
255-78 
255-79 
255-80 
255-81 
255-82 
255-83 
255-84 
255-85 
255-86 
255-87 
255-88 
255-89 
2535-90 
255-91 
255-92 
255-93 
255-94 
255-95 
255-96 
255-97 
255-98 
255-99 
255-100 
255-101 
255-102 
255-103 
255-104 
255-105 
255-106 
255-107 
255-108 
255-109 
255-110 
255-111 
255-112 
255-113 


TIME 
XPOS 
YPOS 


BIN$ 


255-114 
255-115 
255-116 
255-117 
255-118 
255-119 
255-120 
255-121 
255-122 
255-123 
255-124 
255-125 
255-127 
255-127 


HEX$ 
INSTR 
LEFT$ 
MAX 
MIN 
POS 
RIGHT$ 
ROUND 
STRING$ 
TEST 
TESTR 


VPOS 
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TOKENS DE L'AMSTRAD 
DANS L'ORDRE ALPHABETIQUE 


ABS 255-0 ELSE 151 
AFTER 128 END 152 
AND 250 ENT 153 
ASC 255-1 ENV 154 
AUTO 129 EOF 255-64 
BIN$ 255-113 ERASE 155 
BORDER 130 ERL 227 
CALL 131 ERR 255-65 
CAT 132 ERROR 156 
CHAIN 133 EVERY 157 
CHR$ 255-3 EXP 255-7 
CINT 255-4 FIX 255-8 
CLEAR 134 FN 228 
CLG 135 FOR 158 
CLOSEIN 136 FRE 255-9 
CLOSEOUT 137 GOSUB 159 
CLS 138 GOTO 160 
CONT 139 HEX$ 255-115 
COS 255-5 HIMEM 255-66 
CREAL 255-6 IF 161 
DATA 140 INK 162 
DEF 141 INKEY$ 255-67 
DEFINT 142 INP 255-11 
DEFREAL 143 INPUT 163 
DEFSTR 144 INTR 255-116 
DEG 145 INT 255-12 
DELETE 146 JOY 255-13 
DI 119 KEY 164 
DIM 147 LEFT$ 255-117 
DRAW 148 LEN 255-14 
DRAWR 149 LET 165 
EDIT 150 LINE 166 

El 220 LIST 167 
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LOAD 
LOCATE 
LOG 
LOGI10 
LOWER$ 
MAX 
MEMORY 
MERGE 
MID$ 
MIN 
MOD 
MODE 
MOVE 
MOVER 
NEXT 
NEW 
NOT 

ON 

ON BREAK 
ON ERROR GOTO 
ON SQ 
OPENIN 
OPENOUT 
OR 
ORIGIN 
OUT 
PAPER 
PEEK 
PEN 

PI 

PLOT 
PLOTR 
POKE 
POS 
PRINT 
RAD 
RANDOMIZE 
READ 
RELEASE 
REMAIN 
RENUM 
RESTORE 
RESUME 
RETURN 


168 
169 
255-15 
255-16 
255-17 
255-118 
170 
171 
172 
255-119 
251 
173 
174 
175 
176 
177 
254 
178 
179 
180 
181 
182 
183 
252 
184 
185 
186 
255-18 
187 
255-68 
188 
189 
190 
255-12 
191 
193 
194 
195 
196 
255-19 
198 
199 
200 
201 
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RIGHT$ 
RND 
ROUND 
RUN 
SAVE 
SGN 

SIN 
SOUND 
SPACES$ 
SPC 
SPEED 
SQ 

SQR 
STEP 
STOP 
STR$ 
STRING$ 
SWAP 
SYMBOL 
TAB 
TAG 
TAGOFF 
TAN 
TEST 
TESTR 
THEN 
TIME 
TO 
TROFF 
TRON 
UNT 
UPPER$ 
USING 
VAL 
VPOS 
WAIT 
WEND 
WAHILE 
WIDHT 
WINDOW 
WRITE 
XOR 
XPOS 
YPOS 


255-121 
255-69 
255-122 
202 

203 
255-20 
255-21 
204 
255-22 
229 

205 
255-23 
255-24 
230 

206 
255-25 
255-123 
231 

207 

234 
208 

209 
255-26 
255-124 
255-125 
235 
255-70 
236 

210 

211 
255-27 
255-28 
237 
255-29 
255-127 
212 
213 
214 
215 
216 
217 
253 
255-71 
255-72 


* 


—_ 


218 
238 
240 
241 
242 
243 
244 
245 
246 
247 
248 
192 
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Dès qu'un programme BASIC atteint une certaine 
taille, il se pose le problème de la mise au point et 
de la recherche des erreurs : le ‘’déverminage”. 
Certaines sortes de ‘'déverminage”" peuvent être 
faites à l’aide de logiciels, par exemple liste des 
variables utilisées, numéro des étiquettes où elles 
apparaissent ; liste des GOTO ou des GOSUB ; 
recherche de la valeur d'une variable... 

Ce livre étudie tout d'abord la manière dont sont 
stockés, dans la mémoire de l'Amstrad CPC 464, un 
programme BASIC et ses variables associées, puis il 
vous guide pas à pas dans la réalisation d'un logiciel 
de déverminage. Il se termine par le listing d'un tel 
logiciel comportant : 


e Recherche des étiquettes où apparaissent des 
ordres BASIC choisis. 


e Recherche des variables utilisées dans les 
instructions. 


0298 0587 98F 


9 782736 102982 
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